Lines 24-38
use Modern::Perl;
Link Here
|
24 |
use CGI qw ( -utf8 ); |
24 |
use CGI qw ( -utf8 ); |
25 |
use C4::Auth qw( get_template_and_user ); |
25 |
use C4::Auth qw( get_template_and_user ); |
26 |
use C4::Output qw( output_html_with_http_headers ); |
26 |
use C4::Output qw( output_html_with_http_headers ); |
27 |
use C4::Context; |
|
|
28 |
use C4::ClassSource; |
29 |
use C4::Acquisition qw/GetOrderFromItemnumber ModOrder GetOrder/; |
30 |
|
27 |
|
31 |
use Koha::Biblios; |
28 |
use Koha::Biblios; |
32 |
|
|
|
33 |
|
34 |
use MARC::File::XML; |
35 |
|
36 |
use Koha::Items; |
29 |
use Koha::Items; |
37 |
|
30 |
|
38 |
my $query = CGI->new; |
31 |
my $query = CGI->new; |
Lines 52-59
my ($template, $loggedinuser, $cookie) = get_template_and_user(
Link Here
|
52 |
} |
45 |
} |
53 |
); |
46 |
); |
54 |
|
47 |
|
55 |
|
|
|
56 |
|
57 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
48 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
58 |
$template->param(biblio => $biblio); |
49 |
$template->param(biblio => $biblio); |
59 |
$template->param(biblionumber => $biblionumber); |
50 |
$template->param(biblionumber => $biblionumber); |
Lines 103-107
else {
Link Here
|
103 |
if ( !$biblionumber ) { $template->param( missingbiblionumber => 1 ); } |
94 |
if ( !$biblionumber ) { $template->param( missingbiblionumber => 1 ); } |
104 |
} |
95 |
} |
105 |
|
96 |
|
106 |
|
|
|
107 |
output_html_with_http_headers $query, $cookie, $template->output; |
97 |
output_html_with_http_headers $query, $cookie, $template->output; |
108 |
- |
|
|