8 lines
294 B
Perl
8 lines
294 B
Perl
#!/usr/bin/perl
|
|
use C4::Context;
|
|
my $dbh=C4::Context->dbh;
|
|
$dbh->do("ALTER TABLE `subscription` ADD `enddate` date default NULL");
|
|
$dbh->do("ALTER TABLE subscriptionhistory CHANGE enddate histenddate DATE default NULL");
|
|
print "Upgrade to $DBversion done ( Adding enddate to subscription)\n";
|
|
|