installer/data/mysql/atomicupdate/bug_32330.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "32330",
   5     description => "Add indexes to background_jobs table",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         unless ( index_exists('background_jobs', 'borrowernumber') ) {
  10             $dbh->do(q{
  11                 ALTER TABLE `background_jobs` ADD INDEX `borrowernumber` (`borrowernumber`)
  12             });
  13         }
  14         unless ( index_exists('background_jobs', 'queue') ) {
  15             $dbh->do(q{
  16                 ALTER TABLE `background_jobs` ADD INDEX `queue` (`queue`)
  17             });
  18         }
  19         unless ( index_exists('background_jobs', 'status') ) {
  20             $dbh->do(q{
  21                 ALTER TABLE `background_jobs` ADD INDEX `status` (`status`)
  22             });
  23         }
  24     },
  25 };