Lines 42-48
use Koha::DateUtils;
Link Here
|
42 |
use C4::HTML5Media; |
42 |
use C4::HTML5Media; |
43 |
use C4::CourseReserves qw(GetItemCourseReservesInfo); |
43 |
use C4::CourseReserves qw(GetItemCourseReservesInfo); |
44 |
use C4::Acquisition qw(GetOrdersByBiblionumber); |
44 |
use C4::Acquisition qw(GetOrdersByBiblionumber); |
45 |
|
45 |
use Data::Dumper; |
46 |
use Koha::Virtualshelves; |
46 |
use Koha::Virtualshelves; |
47 |
|
47 |
|
48 |
my $query = CGI->new(); |
48 |
my $query = CGI->new(); |
Lines 220-226
foreach my $item (@items) {
Link Here
|
220 |
$item->{'ccode'} = $collections->{$ccode} if ( defined( $ccode ) && defined($collections) && exists( $collections->{$ccode} ) ); |
220 |
$item->{'ccode'} = $collections->{$ccode} if ( defined( $ccode ) && defined($collections) && exists( $collections->{$ccode} ) ); |
221 |
my $copynumber = $item->{'copynumber'}; |
221 |
my $copynumber = $item->{'copynumber'}; |
222 |
$item->{'copynumber'} = $copynumbers->{$copynumber} if ( defined($copynumber) && defined($copynumbers) && exists( $copynumbers->{$copynumber} ) ); |
222 |
$item->{'copynumber'} = $copynumbers->{$copynumber} if ( defined($copynumber) && defined($copynumbers) && exists( $copynumbers->{$copynumber} ) ); |
223 |
foreach (qw(ccode enumchron copynumber stocknumber itemnotes uri)) { |
223 |
foreach (qw(ccode enumchron copynumber stocknumber itemnotes itemnotes_nonpublic uri)) { |
224 |
$itemfields{$_} = 1 if ( $item->{$_} ); |
224 |
$itemfields{$_} = 1 if ( $item->{$_} ); |
225 |
} |
225 |
} |
226 |
|
226 |
|
Lines 254-260
foreach my $item (@items) {
Link Here
|
254 |
$item->{nocancel} = 1; |
254 |
$item->{nocancel} = 1; |
255 |
} |
255 |
} |
256 |
|
256 |
|
257 |
# item has a host number if its biblio number does not match the current bib |
257 |
foreach my $f (qw( itemnotes )) { |
|
|
258 |
if ($item->{$f}) { |
259 |
$item->{$f} =~ s|\n|<br />|g; |
260 |
$itemfields{$f} = 1; |
261 |
} |
262 |
} |
263 |
|
264 |
#item has a host number if its biblio number does not match the current bib |
265 |
|
258 |
if ($item->{biblionumber} ne $biblionumber){ |
266 |
if ($item->{biblionumber} ne $biblionumber){ |
259 |
$item->{hostbiblionumber} = $item->{biblionumber}; |
267 |
$item->{hostbiblionumber} = $item->{biblionumber}; |
260 |
$item->{hosttitle} = GetBiblioData($item->{biblionumber})->{title}; |
268 |
$item->{hosttitle} = GetBiblioData($item->{biblionumber})->{title}; |
Lines 319-325
$template->param(
Link Here
|
319 |
itemdata_copynumber => $itemfields{copynumber}, |
327 |
itemdata_copynumber => $itemfields{copynumber}, |
320 |
itemdata_stocknumber => $itemfields{stocknumber}, |
328 |
itemdata_stocknumber => $itemfields{stocknumber}, |
321 |
volinfo => $itemfields{enumchron}, |
329 |
volinfo => $itemfields{enumchron}, |
322 |
itemdata_itemnotes => $itemfields{itemnotes}, |
330 |
itemdata_itemnotes => $itemfields{itemnotes}, |
|
|
331 |
itemdata_nonpublicnotes => $itemfields{itemnotes_nonpublic}, |
323 |
z3950_search_params => C4::Search::z3950_search_args($dat), |
332 |
z3950_search_params => C4::Search::z3950_search_args($dat), |
324 |
hostrecords => $hostrecords, |
333 |
hostrecords => $hostrecords, |
325 |
analytics_flag => $analytics_flag, |
334 |
analytics_flag => $analytics_flag, |