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

(-)a/installer/data/mysql/updatedatabase.pl (-14 / +18 lines)
Lines 3974-3993 if (C4::Context->preference("Version") < TransformToNum($DBversion)) { Link Here
3974
}
3974
}
3975
3975
3976
$DBversion = "3.03.00.015";
3976
$DBversion = "3.03.00.015";
3977
if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
3977
if ( C4::Context->preference("Version") < TransformToNum($DBversion) ) {
3978
    my $sth = $dbh->prepare("INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, 
3978
    if ( C4::Context->preference("marcflavour") eq "MARC21" ) {
3979
        my $sth = $dbh->prepare(
3980
"INSERT INTO `marc_subfield_structure` (`tagfield`, `tagsubfield`, `liblibrarian`, `libopac`, `repeatable`, `mandatory`, `kohafield`, 
3979
                             `tab`, `authorised_value`, `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`)
3981
                             `tab`, `authorised_value`, `authtypecode`, `value_builder`, `isurl`, `hidden`, `frameworkcode`, `seealso`, `link`, `defaultvalue`)
3980
                             VALUES ( ?, '9', '9 (RLIN)', '9 (RLIN)', 0, 0, '', 6, '', '', '', 0, -5, '', '', '', NULL)");
3982
                             VALUES ( ?, '9', '9 (RLIN)', '9 (RLIN)', 0, 0, '', 6, '', '', '', 0, -5, '', '', '', NULL)"
3981
    $sth->execute('648');
3983
        );
3982
    $sth->execute('654');
3984
        $sth->execute('648');
3983
    $sth->execute('655');
3985
        $sth->execute('654');
3984
    $sth->execute('656');
3986
        $sth->execute('655');
3985
    $sth->execute('657');
3987
        $sth->execute('656');
3986
    $sth->execute('658');
3988
        $sth->execute('657');
3987
    $sth->execute('662');
3989
        $sth->execute('658');
3988
    $sth->finish;
3990
        $sth->execute('662');
3989
    print "Upgrade to $DBversion done (Bug 5619: Add subfield 9 to marc21 648,654,655,656,657,658,662)\n";
3991
        $sth->finish;
3990
    SetVersion ($DBversion);
3992
        print
3993
"Upgrade to $DBversion done (Bug 5619: Add subfield 9 to marc21 648,654,655,656,657,658,662)\n";
3994
    }
3995
    SetVersion($DBversion);
3991
}
3996
}
3992
3997
3993
$DBversion = '3.03.00.016';
3998
$DBversion = '3.03.00.016';
3994
- 

Return to bug 6931