|
Lines 95-101
if ( not defined $record ) {
Link Here
|
| 95 |
exit; |
95 |
exit; |
| 96 |
} |
96 |
} |
| 97 |
|
97 |
|
| 98 |
eval { $biblio->metadata->record }; |
98 |
my $marc_record = eval { $biblio->metadata->record }; |
| 99 |
$template->param( decoding_error => $@ ); |
99 |
$template->param( decoding_error => $@ ); |
| 100 |
|
100 |
|
| 101 |
if($query->cookie("holdfor")){ |
101 |
if($query->cookie("holdfor")){ |
|
Lines 145-152
$template->param(
Link Here
|
| 145 |
normalized_isbn => $isbn, |
145 |
normalized_isbn => $isbn, |
| 146 |
); |
146 |
); |
| 147 |
|
147 |
|
| 148 |
my $marcnotesarray = $biblio->get_marc_notes({ marcflavour => $marcflavour }); |
|
|
| 149 |
|
| 150 |
my $itemtypes = { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search->unblessed } }; |
148 |
my $itemtypes = { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search->unblessed } }; |
| 151 |
|
149 |
|
| 152 |
my $dbh = C4::Context->dbh; |
150 |
my $dbh = C4::Context->dbh; |
|
Lines 221-227
if ( $showcomp eq 'both' || $showcomp eq 'staff' ) {
Link Here
|
| 221 |
$template->param( ComponentPartsQuery => $biblio->get_components_query ); |
219 |
$template->param( ComponentPartsQuery => $biblio->get_components_query ); |
| 222 |
} |
220 |
} |
| 223 |
} else { # check if we should show analytics anyway |
221 |
} else { # check if we should show analytics anyway |
| 224 |
$show_analytics = 1 if @{$biblio->get_marc_components(1)}; # count matters here, results does not |
222 |
$show_analytics = 1 if $marc_record && @{$biblio->get_marc_components(1)}; # count matters here, results does not |
| 225 |
$template->param( analytics_error => 1 ) if grep { $_->message eq 'component_search' } @{$biblio->messages}; |
223 |
$template->param( analytics_error => 1 ) if grep { $_->message eq 'component_search' } @{$biblio->messages}; |
| 226 |
} |
224 |
} |
| 227 |
|
225 |
|
|
Lines 452-458
$template->param(
Link Here
|
| 452 |
); |
450 |
); |
| 453 |
|
451 |
|
| 454 |
$template->param( |
452 |
$template->param( |
| 455 |
MARCNOTES => $marcnotesarray, |
453 |
MARCNOTES => $marc_record ? $biblio->get_marc_notes({ marcflavour => $marcflavour }) : (), |
| 456 |
itemdata_ccode => $itemfields{ccode}, |
454 |
itemdata_ccode => $itemfields{ccode}, |
| 457 |
itemdata_enumchron => $itemfields{enumchron}, |
455 |
itemdata_enumchron => $itemfields{enumchron}, |
| 458 |
itemdata_uri => $itemfields{uri}, |
456 |
itemdata_uri => $itemfields{uri}, |
| 459 |
- |
|
|