installer/data/mysql/atomicupdate/bug_25867_location_renames.perl

   1 $DBversion = 'XXX'; # will be replaced by the RM
   2 if( CheckVersion( $DBversion ) ) {
   3
   4     $dbh->do( "UPDATE marc_subfield_structure SET liblibrarian = 'Home library' WHERE liblibrarian = 'Permanent location'
   5         AND tagfield = 952 and tagsubfield = 'a'" );
   6     $dbh->do( "UPDATE marc_subfield_structure SET libopac = 'Home library' WHERE libopac = 'Permanent location'
   7         AND tagfield = 952 and tagsubfield = 'a'" );
   8     $dbh->do( "UPDATE marc_subfield_structure SET liblibrarian = 'Current library' WHERE liblibrarian = 'Current location'
   9         AND tagfield = 952 and tagsubfield = 'b'" );
  10     $dbh->do( "UPDATE marc_subfield_structure SET libopac = 'Current library' WHERE libopac = 'Current location'
  11         AND tagfield = 952 and tagsubfield = 'b'" );
  12
  13     NewVersion( $DBversion, 25867, "Update subfield descriptions for 952\$a and 952\$b");
  14 }