--- /dev/null
+use Modern::Perl;
+
+return {
+ bug_number => "30852",
+ description => "Add index to article_requests.debit_id",
+ up => sub {
+ my ($args) = @_;
+ my ($dbh, $out) = @$args{qw(dbh out)};
+ unless ( index_exists( 'article_requests', 'debit_id' ) ) {
+ $dbh->do(q{
+ ALTER TABLE `article_requests`
+ ADD KEY `debit_id` (`debit_id`)
+ });
+ }
+ },
+};
KEY `biblionumber` (`biblionumber`),
KEY `itemnumber` (`itemnumber`),
KEY `branchcode` (`branchcode`),
+ KEY `debit_id` (`debit_id`),
CONSTRAINT `article_requests_ibfk_1` FOREIGN KEY (`borrowernumber`) REFERENCES `borrowers` (`borrowernumber`) ON DELETE CASCADE ON UPDATE CASCADE,
CONSTRAINT `article_requests_ibfk_2` FOREIGN KEY (`biblionumber`) REFERENCES `biblio` (`biblionumber`) ON DELETE CASCADE ON UPDATE CASCADE,
CONSTRAINT `article_requests_ibfk_3` FOREIGN KEY (`itemnumber`) REFERENCES `items` (`itemnumber`) ON DELETE SET NULL ON UPDATE CASCADE,