View | Details | Raw Unified | Return to bug 25867
Collapse All | Expand All

(-)a/installer/data/mysql/atomicupdate/bug_25867_location_renames.perl (-1 / +14 lines)
Line 0 Link Here
0
- 
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
}

Return to bug 25867