Lines 6750-6759
if ( CheckVersion($DBversion) ) {
Link Here
|
6750 |
|
6750 |
|
6751 |
$DBversion = "3.11.00.XXX"; |
6751 |
$DBversion = "3.11.00.XXX"; |
6752 |
if ( CheckVersion($DBversion) ) { |
6752 |
if ( CheckVersion($DBversion) ) { |
6753 |
$dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'BIBSYS'"); |
6753 |
$dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'BIBSYS' AND host LIKE 'z3950.bibsys.no'"); |
6754 |
$dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'NORBOK'"); |
6754 |
$dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'NORBOK' AND host LIKE 'z3950.nb.no'"); |
6755 |
$dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'SAMBOK'"); |
6755 |
$dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'SAMBOK' AND host LIKE 'z3950.nb.no'"); |
6756 |
$dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'DEICHMAN'"); |
6756 |
$dbh->do("UPDATE z3950servers SET encoding = 'ISO_8859-1' WHERE name = 'DEICHMAN' AND host like 'z3950.deich.folkebibl.no'"); |
6757 |
print "Upgrade to $DBversion done (Bug 9498 - Update encoding for Norwegian sample Z39.50 servers)\n"; |
6757 |
print "Upgrade to $DBversion done (Bug 9498 - Update encoding for Norwegian sample Z39.50 servers)\n"; |
6758 |
SetVersion($DBversion); |
6758 |
SetVersion($DBversion); |
6759 |
} |
6759 |
} |
6760 |
- |
|
|