SetVersion ($DBversion);
}
+$DBversion = "3.03.00.010";
+if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+ $dbh->do("UPDATE `marc_subfield_structure` SET liblibrarian = 'Distance from earth' WHERE liblibrarian = 'Distrance from earth' AND tagfield = '034' AND tagsubfield = 'r';");
+ $dbh->do("UPDATE `marc_subfield_structure` SET libopac = 'Distance from earth' WHERE libopac = 'Distrance from earth' AND tagfield = '034' AND tagsubfield = 'r';");
+ print "Upgrade to $DBversion done (Fix misspelled 034r subfield in MARC21 Frameworks)\n";
+ SetVersion ($DBversion);
+}
+ $DBversion = "3.01.00.XXX";
+ if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+ $dbh->do("UPDATE aqbooksellers SET gstrate=NULL WHERE gstrate=0.0");
+ print "Upgrade to $DBversion done (Bug 5186: allow GST rate to be set to 0)\n";
+ SetVersion ($DBversion);
+ }
=head1 FUNCTIONS