View | Details | Raw Unified | Return to bug 14246
Collapse All | Expand All

(-)a/installer/data/mysql/atomicupdate/add_news_author.pl (+12 lines)
Line 0 Link Here
1
#!/usr/bin/perl
2
3
use strict;
4
use warnings;
5
6
use C4::Context;
7
8
my $dbh = C4::Context->dbh;
9
$dbh->do("ALTER TABLE opac_news ADD borrowernumber INT(11) NULL DEFAULT NULL;");
10
$dbh->do("ALTER TABLE opac_news ADD CONSTRAINT fk_borrowernumber FOREIGN KEY (borrowernumber) REFERENCES borrowers(borrowernumber) ON DELETE SET NULL ON UPDATE SET NULL;");
11
12
print "Upgrade done (Adding borrowernumber column and foreign key to opac_news)\n";
(-)a/tools/koha-news.pl (-1 / +1 lines)
Lines 114-119 elsif ( $op eq 'add' ) { Link Here
114
                timestamp      => $timestamp,
114
                timestamp      => $timestamp,
115
                number         => $number,
115
                number         => $number,
116
                branchcode     => $branchcode,
116
                branchcode     => $branchcode,
117
                borrowernumber => $borrowernumber,
117
            }
118
            }
118
        );
119
        );
119
        print $cgi->redirect("/cgi-bin/koha/tools/koha-news.pl");
120
        print $cgi->redirect("/cgi-bin/koha/tools/koha-news.pl");
120
- 

Return to bug 14246