#!/usr/bin/perl
+#use strict;
+#use warnings; FIXME - Bug 2505
use C4::Context;
my $dbh=C4::Context->dbh;
$dbh->do("ALTER TABLE `subscription` ADD `enddate` date default NULL");
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#use strict;
+#use warnings; FIXME - Bug 2505
+
use C4::Context;
my $sth = C4::Context->dbh;
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
+#use strict;
+#use warnings; FIXME - Bug 2505
+
use C4::Context;
my $sth = C4::Context->dbh;
# NOTE: If you do something more than once in here, make it table driven.
use strict;
+#use warnings; FIXME - Bug 2505
# CPAN modules
use DBI;