installer/data/mysql/atomicupdate/bug_21978.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         my @default_patron_search_fields = split(',',C4::Context->preference('DefaultPatronSearchFields'));
  37         unless( grep /middle_name/, @default_patron_search_fields ){
  38             if( grep /firstname/, @default_patron_search_fields ){
  39                 push @default_patron_search_fields,'middle_name';
  40                 C4::Context->set_preference('DefaultPatronSearchFields', join(',',@default_patron_search_fields) );
  41                 say $out "Added middle name to DefaultPatronSearchFields";
  42             } else {
  43                 say $out "Please add 'middlename' to DefaultPatronSearchFields if you want it searched by default";
  44             }
  45         }
  46     },
  47 }