# - #4 : the developer version. The 4th number is the database subversion.
# used by developers when the database changes. updatedatabase take care of the changes itself
# and is automatically called by Auth.pm when needed.
-$VERSION = "3.21.00.029";
+$VERSION = "3.21.00.030";
sub version {
return $VERSION;
SetVersion($DBversion);
}
+$DBversion = "3.21.00.030";
+if ( CheckVersion($DBversion) ) {
+ $dbh->do(q{
+ UPDATE marc_subfield_structure
+ SET value_builder='marc21_leader.pl'
+ WHERE value_builder='marc21_leader_book.pl'
+ });
+ $dbh->do(q{
+ UPDATE marc_subfield_structure
+ SET value_builder='marc21_leader.pl'
+ WHERE value_builder='marc21_leader_computerfile.pl'
+ });
+ $dbh->do(q{
+ UPDATE marc_subfield_structure
+ SET value_builder='marc21_leader.pl'
+ WHERE value_builder='marc21_leader_video.pl'
+ });
+ print "Upgrade to $DBversion done (Bug 14201: Remove unused code or template from some MARC21 leader plugins )\n";
+ SetVersion($DBversion);
+}
+
# DEVELOPER PROCESS, search for anything to execute in the db_update directory
# SEE bug 13068
# if there is anything in the atomicupdate, read and execute it.