# - #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 = "20.06.00.023";
+$VERSION = "20.06.00.024";
sub version {
return $VERSION;
+++ /dev/null
-$DBversion = 'XXX'; # will be replaced by the RM
-if( CheckVersion( $DBversion ) ) {
-
- $dbh->do( "UPDATE marc_subfield_structure SET liblibrarian = 'Home library' WHERE liblibrarian = 'Permanent location'
- AND tagfield = 952 and tagsubfield = 'a'" );
- $dbh->do( "UPDATE marc_subfield_structure SET libopac = 'Home library' WHERE libopac = 'Permanent location'
- AND tagfield = 952 and tagsubfield = 'a'" );
- $dbh->do( "UPDATE marc_subfield_structure SET liblibrarian = 'Current library' WHERE liblibrarian = 'Current location'
- AND tagfield = 952 and tagsubfield = 'b'" );
- $dbh->do( "UPDATE marc_subfield_structure SET libopac = 'Current library' WHERE libopac = 'Current location'
- AND tagfield = 952 and tagsubfield = 'b'" );
-
- NewVersion( $DBversion, 25867, "Update subfield descriptions for 952\$a and 952\$b");
-}
NewVersion( $DBversion, 16371, "Quote of the Day (QOTD) for the staff interface " );
}
+$DBversion = '20.06.00.024';
+if( CheckVersion( $DBversion ) ) {
+
+ $dbh->do( "UPDATE marc_subfield_structure SET liblibrarian = 'Home library' WHERE liblibrarian = 'Permanent location'
+ AND tagfield = 952 and tagsubfield = 'a'" );
+ $dbh->do( "UPDATE marc_subfield_structure SET libopac = 'Home library' WHERE libopac = 'Permanent location'
+ AND tagfield = 952 and tagsubfield = 'a'" );
+ $dbh->do( "UPDATE marc_subfield_structure SET liblibrarian = 'Current library' WHERE liblibrarian = 'Current location'
+ AND tagfield = 952 and tagsubfield = 'b'" );
+ $dbh->do( "UPDATE marc_subfield_structure SET libopac = 'Current library' WHERE libopac = 'Current location'
+ AND tagfield = 952 and tagsubfield = 'b'" );
+
+ NewVersion( $DBversion, 25867, "Update subfield descriptions for 952\$a and 952\$b");
+}
+
# SEE bug 13068
# if there is anything in the atomicupdate, read and execute it.
my $update_dir = C4::Context->config('intranetdir') . '/installer/data/mysql/atomicupdate/';