installer/data/mysql/db_revs/220600006.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "21978",
   5     description => "Add middle_name to borrowers table",
   6     up => sub {
   7         my ($args) = @_;
   8         my ($dbh, $out) = @$args{qw(dbh out)};
   9         if( !column_exists( 'borrowers', 'middle_name' ) ) {
  10             $dbh->do(q{
  11                 ALTER TABLE borrowers
  12                 ADD COLUMN middle_name longtext NULL DEFAULT NULL
  13                 COMMENT "patron/borrower's middle name"
  14                 AFTER firstname
  15             });
  16             say $out "Added middle name column to borrowers table";
  17         }
  18         if( !column_exists( 'deletedborrowers', 'middle_name' ) ) {
  19             $dbh->do(q{
  20                 ALTER TABLE deletedborrowers
  21                 ADD COLUMN middle_name longtext NULL DEFAULT NULL
  22                 COMMENT "patron/borrower's middle name"
  23                 AFTER firstname
  24             });
  25             say $out "Added middle name column to deletedborrowers table";
  26         }
  27         if( !column_exists( 'borrower_modifications', 'middle_name' ) ) {
  28             $dbh->do(q{
  29                 ALTER TABLE borrower_modifications
  30                 ADD COLUMN middle_name longtext NULL DEFAULT NULL
  31                 COMMENT "patron/borrower's middle name"
  32                 AFTER firstname
  33             });
  34             say $out "Added middle name column to borrower_modifications table";
  35         }
  36
  37         my ($default_patron_search_fields) = $dbh->selectrow_array( q{
  38             SELECT value FROM systempreferences WHERE variable='DefaultPatronSearchFields';
  39         });
  40         my @default_patron_search_fields = split(',', $default_patron_search_fields);
  41         unless( grep /middle_name/, @default_patron_search_fields ){
  42             if ( $default_patron_search_fields eq 'firstname,surname,othernames,cardnumber,userid' ) {
  43                 $dbh->do(q{
  44                     UPDATE systempreferences SET value=? WHERE variable='DefaultPatronSearchFields'
  45                 }, undef, 'firstname,middle_name,surname,othernames,cardnumber,userid');
  46                 say $out "Added middle name to DefaultPatronSearchFields";
  47             } elsif( grep /firstname/, @default_patron_search_fields ){
  48                 push @default_patron_search_fields,'middle_name';
  49                 my $new_patron_search_fields = join(',',@default_patron_search_fields);
  50                 $dbh->do(q{
  51                     UPDATE systempreferences SET value=? WHERE variable='DefaultPatronSearchFields'
  52                 }, undef, $new_patron_search_fields);
  53                 say $out "Added middle name to DefaultPatronSearchFields";
  54             } else {
  55                 say $out "Please add 'middlename' to DefaultPatronSearchFields if you want it searched by default";
  56             }
  57         }
  58     },
  59 }