|
Lines 21-27
use Modern::Perl;
Link Here
|
| 21 |
|
21 |
|
| 22 |
use CGI qw ( -utf8 ); |
22 |
use CGI qw ( -utf8 ); |
| 23 |
use C4::Auth qw( get_template_and_user ); |
23 |
use C4::Auth qw( get_template_and_user ); |
| 24 |
use C4::Items qw( GetItemsInfo ); |
|
|
| 25 |
use C4::Output qw( output_html_with_http_headers ); |
24 |
use C4::Output qw( output_html_with_http_headers ); |
| 26 |
use C4::Search qw( enabled_staff_search_views ); |
25 |
use C4::Search qw( enabled_staff_search_views ); |
| 27 |
|
26 |
|
|
Lines 44-50
my $biblionumber = $query->param('biblionumber') || $query->param('bib') || Koha
Link Here
|
| 44 |
my $imagenumber = $query->param('imagenumber'); |
43 |
my $imagenumber = $query->param('imagenumber'); |
| 45 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
44 |
my $biblio = Koha::Biblios->find( $biblionumber ); |
| 46 |
my $itemcount = $biblio ? $biblio->items->count : 0; |
45 |
my $itemcount = $biblio ? $biblio->items->count : 0; |
| 47 |
my @items = GetItemsInfo($biblionumber); |
|
|
| 48 |
|
46 |
|
| 49 |
if ( $query->cookie("holdfor") ) { |
47 |
if ( $query->cookie("holdfor") ) { |
| 50 |
my $holdfor_patron = Koha::Patrons->find( $query->cookie("holdfor") ); |
48 |
my $holdfor_patron = Koha::Patrons->find( $query->cookie("holdfor") ); |
| 51 |
- |
|
|