$|=1; # flushes output
=item
+
Deal with virtualshelves
+
=cut
my $DBversion = "3.00.00.001";
SetVersion ($DBversion);
}
+$DBversion = "3.00.00.074";
+if (C4::Context->preference("Version") < TransformToNum($DBversion)) {
+ $dbh->do( q(update itemtypes set imageurl = concat( 'npl/', imageurl )
+ where imageurl not like 'http%'
+ and imageurl is not NULL
+ and imageurl != '') );
+ print "Upgrade to $DBversion done (updating imagetype.imageurls to reflect new icon locations.)\n";
+ SetVersion ($DBversion);
+}
+
=item DropAllForeignKeys($table)
Drop all foreign keys of the table $table
-
+
=cut
sub DropAllForeignKeys {
Transform the Koha version from a 4 parts string
to a number, with just 1 .
-
+
=cut
sub TransformToNum {
}
=item SetVersion
+
set the DBversion in the systempreferences
+
=cut
sub SetVersion {
use strict;
sub kohaversion {
- our $VERSION = "3.00.00.073";
+ our $VERSION = "3.00.00.074";
# version needs to be set this way
# so that it can be picked up by Makefile.PL
# during install