SetVersion ($DBversion);
}
-$DBversion = "3.19.00.XXX";
-if ( CheckVersion($DBversion) ) {
- $dbh->do(q|
- INSERT INTO userflags (bit, flag, flagdesc, defaulton) VALUES
- (20, 'shelves', 'Virtual shelves', 0)
- |);
- $dbh->do(q|
- INSERT INTO permissions (module_bit, code, description) VALUES
- (20, 'manage_shelves', 'Manage shelves')
- |);
- print "Upgrade to $DBversion done (Bug XXXXX: Add permission for shelves)\n";
- SetVersion ($DBversion);
-}
-
-$DBversion = "3.19.00.XXX";
+$DBversion = "3.19.00.038";
if ( CheckVersion($DBversion) ) {
$dbh->do(q|
ALTER TABLE virtualshelves
UPDATE virtualshelves
SET created_on = lastmodified, lastmodified = lastmodified
|);
- print "Upgrade to $DBversion done (Bug XXXXX: Add DB field virtualshelves.created_on)\n";
+ print "Upgrade to $DBversion done (Bug 13421: Add DB field virtualshelves.created_on)\n";
SetVersion ($DBversion);
}
use strict;
sub kohaversion {
- our $VERSION = '3.19.00.037';
+ our $VERSION = '3.19.00.038';
# version needs to be set this way
# so that it can be picked up by Makefile.PL
# during install