Lines 31-39
its basket is closed.
Link Here
|
31 |
use Modern::Perl; |
31 |
use Modern::Perl; |
32 |
|
32 |
|
33 |
use CGI qw ( -utf8 ); |
33 |
use CGI qw ( -utf8 ); |
34 |
use C4::Auth; |
34 |
use C4::Auth qw( get_template_and_user ); |
35 |
use C4::Output; |
35 |
use C4::Output qw( output_html_with_http_headers ); |
36 |
use C4::Acquisition; |
36 |
use C4::Acquisition qw( GetOrder GetBasket ); |
37 |
|
37 |
|
38 |
use Koha::Acquisition::Booksellers; |
38 |
use Koha::Acquisition::Booksellers; |
39 |
use Koha::DateUtils; |
39 |
use Koha::DateUtils; |
Lines 44-50
my ($template, $loggedinuser, $cookie, $flags) = get_template_and_user( {
Link Here
|
44 |
query => $input, |
44 |
query => $input, |
45 |
type => 'intranet', |
45 |
type => 'intranet', |
46 |
flagsrequired => { 'acquisition' => 'order_manage' }, |
46 |
flagsrequired => { 'acquisition' => 'order_manage' }, |
47 |
debug => 1, |
|
|
48 |
} ); |
47 |
} ); |
49 |
|
48 |
|
50 |
my $op = $input->param('op'); |
49 |
my $op = $input->param('op'); |
51 |
- |
|
|