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