installer/data/mysql/db_revs/221105010.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "33489",
   5     description => "Add indices to default patron search fields",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         # Do you stuffs here
  10         unless ( index_exists( 'borrowers', 'cardnumber_idx' ) ) {
  11             $dbh->do(q{CREATE INDEX cardnumber_idx ON borrowers ( cardnumber )});
  12             say $out "Added new index on borrowers.cardnumber";
  13         }
  14         unless ( index_exists( 'borrowers', 'userid_idx' ) ) {
  15             $dbh->do(q{CREATE INDEX userid_idx ON borrowers ( userid )});
  16             say $out "Added new index on borrowers.userid";
  17         }
  18         unless ( index_exists( 'borrowers', 'middle_name_idx' ) ) {
  19             $dbh->do(q{CREATE INDEX middle_name_idx ON borrowers ( middle_name(768) )});
  20             say $out "Added new index on borrowers.midddle_name";
  21         }
  22     },
  23 };