installer/data/mysql/atomicupdate/bug_28567.perl

   1 $DBversion = 'XXX'; # will be replaced by the RM
   2 if( CheckVersion( $DBversion ) ) {
   3
   4     my @fields = qw(
   5       branchname
   6       branchaddress1
   7       branchaddress2
   8       branchaddress3
   9       branchzip
  10       branchcity
  11       branchstate
  12       branchcountry
  13       branchphone
  14       branchfax
  15       branchemail
  16       branchillemail
  17       branchreplyto
  18       branchreturnpath
  19       branchurl
  20       branchip
  21       branchnotes
  22       opac_info
  23       marcorgcode
  24     );
  25     for my $f ( @fields ) {
  26         $dbh->do(qq{
  27             UPDATE branches
  28             SET $f = NULL
  29             WHERE $f = ""
  30         });
  31     }
  32
  33     NewVersion( $DBversion, 28567, "Set to NULL empty branches fields");
  34 }