#!/usr/bin/perl
use strict;
use warnings;
use C4::Context;
my $dbh = C4::Context->dbh;
$dbh->do("ALTER TABLE opac_news ADD borrowernumber INT(11) NULL DEFAULT NULL;");
$dbh->do("ALTER TABLE opac_news ADD CONSTRAINT fk_borrowernumber FOREIGN KEY (borrowernumber) REFERENCES borrowers(borrowernumber) ON DELETE SET NULL ON UPDATE SET NULL;");
print "Upgrade done (Adding borrowernumber column and foreign key to opac_news)\n";
timestamp => $timestamp,
number => $number,
branchcode => $branchcode,
borrowernumber => $borrowernumber,
}
);
print $cgi->redirect("/cgi-bin/koha/tools/koha-news.pl");
-