Lines 36-41
Link Here
|
36 |
use strict; |
36 |
use strict; |
37 |
#use warnings; FIXME - Bug 2505 |
37 |
#use warnings; FIXME - Bug 2505 |
38 |
use CGI qw ( -utf8 ); |
38 |
use CGI qw ( -utf8 ); |
|
|
39 |
use Koha::CGI; |
39 |
use C4::Context; |
40 |
use C4::Context; |
40 |
use C4::Auth; |
41 |
use C4::Auth; |
41 |
use C4::Output; |
42 |
use C4::Output; |
Lines 75-81
BEGIN {
Link Here
|
75 |
|
76 |
|
76 |
my $dbh = C4::Context->dbh; |
77 |
my $dbh = C4::Context->dbh; |
77 |
|
78 |
|
78 |
my $input = CGI->new; |
79 |
my $input = Koha::CGI->new; |
79 |
$debug or $debug = $input->param('debug') || 0; |
80 |
$debug or $debug = $input->param('debug') || 0; |
80 |
my $print = $input->param('print'); |
81 |
my $print = $input->param('print'); |
81 |
|
82 |
|
82 |
- |
|
|