bug 2765: updatedatabase to increase width of ISBN columns

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
Galen Charlton 2009-04-24 08:41:24 -05:00
parent 1574e45d01
commit 5c6d9633b7
2 changed files with 11 additions and 1 deletions

View File

@ -2332,6 +2332,16 @@ if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
SetVersion ($DBversion);
}
$DBversion = '3.01.00.023';
if ( C4::Context->preference('Version') < TransformToNum($DBversion) ) {
$dbh->do("ALTER TABLE biblioitems MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
$dbh->do("ALTER TABLE deletedbiblioitems MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
$dbh->do("ALTER TABLE import_biblios MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
$dbh->do("ALTER TABLE suggestions MODIFY COLUMN isbn VARCHAR(30) DEFAULT NULL");
print "Upgrade to $DBversion done (bug 2765: increase width of isbn column in several tables)\n";
SetVersion ($DBversion);
}
=item DropAllForeignKeys($table)
Drop all foreign keys of the table $table

View File

@ -10,7 +10,7 @@
use strict;
sub kohaversion {
our $VERSION = '3.01.00.022';
our $VERSION = '3.01.00.023';
# version needs to be set this way
# so that it can be picked up by Makefile.PL
# during install