|
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 |
- |
|
|