installer/data/mysql/db_revs/210600011.pl

   1 use Modern::Perl;
   2
   3 return {
   4     bug_number => "28567",
   5     description => "Set to NULL empty branches fields",
   6     up => sub {
   7         my ($args) = @_;
   8         my $dbh = $args->{dbh};
   9
  10         my @fields = qw(
  11           branchname
  12           branchaddress1
  13           branchaddress2
  14           branchaddress3
  15           branchzip
  16           branchcity
  17           branchstate
  18           branchcountry
  19           branchphone
  20           branchfax
  21           branchemail
  22           branchillemail
  23           branchreplyto
  24           branchreturnpath
  25           branchurl
  26           branchip
  27           branchnotes
  28           opac_info
  29           marcorgcode
  30         );
  31         for my $f ( @fields ) {
  32             $dbh->do(qq{
  33                 UPDATE branches
  34                 SET $f = NULL
  35                 WHERE $f = ""
  36             });
  37         }
  38     },
  39 }