SetVersion ($DBversion);
}
-$DBversion ="3.13.00.XXX";
+$DBversion ="3.13.00.021";
if ( CheckVersion($DBversion) ) {
$dbh->do("INSERT IGNORE INTO systempreferences (variable,value,explanation,options,type) VALUES('ConfirmFutureHolds','0','Number of days for confirming future holds','','Integer');");
print "Upgrade to $DBversion done (Bug 9761: Add ConfirmFutureHolds pref)\n";
}
+$DBversion = "3.13.00.022";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do("DELETE from auth_tag_structure WHERE tagfield IN ('68a','68b')");
+ $dbh->do("DELETE from auth_subfield_structure WHERE tagfield IN ('68a','68b')");
+ print "Upgrade to $DBversion done (Bug 10687 - Delete erroneous tags 68a and 68b on default MARC21 auth framework)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.023";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do("ALTER TABLE borrowers CHANGE password password VARCHAR(60);");
+ print "Upgrade to $DBversion done (Bug 9611 upgrading password storage system)\n";
+ SetVersion($DBversion);
+}
+
+$DBversion = "3.13.00.XXX";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{ALTER TABLE z3950servers ADD COLUMN recordtype VARCHAR(45) NOT NULL DEFAULT 'biblio' AFTER description;});
+ print "Upgrade to $DBversion done (Bug 10096 - Add a Z39.50 interface for authority searching)\n";
+ SetVersion ($DBversion);
+}
+
=head1 FUNCTIONS
=head2 TableExists($table)