|
Lines 99-110
$template->param(
Link Here
|
| 99 |
normalized_isbn => $isbn, |
99 |
normalized_isbn => $isbn, |
| 100 |
); |
100 |
); |
| 101 |
|
101 |
|
|
|
102 |
unless (defined($record)) { |
| 103 |
print $query->redirect("/cgi-bin/koha/errors/404.pl"); |
| 104 |
exit; |
| 105 |
} |
| 106 |
|
| 107 |
my $dat = &GetBiblioData($biblionumber); |
| 108 |
|
| 102 |
my $marcnotesarray = GetMarcNotes( $record, $marcflavour ); |
109 |
my $marcnotesarray = GetMarcNotes( $record, $marcflavour ); |
| 103 |
my $marcisbnsarray = GetMarcISBN( $record, $marcflavour ); |
110 |
my $marcisbnsarray = GetMarcISBN( $record, $marcflavour ); |
| 104 |
my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour ); |
111 |
my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour ); |
| 105 |
my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour ); |
112 |
my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour ); |
| 106 |
my $marcseriesarray = GetMarcSeries($record,$marcflavour); |
113 |
my $marcseriesarray = GetMarcSeries($record,$marcflavour); |
| 107 |
my $marcurlsarray = GetMarcUrls ($record,$marcflavour); |
114 |
my $marcurlsarray = GetMarcUrls ($record,$marcflavour,$dat->{issn}); |
| 108 |
my $subtitle = GetRecordValue('subtitle', $record, $fw); |
115 |
my $subtitle = GetRecordValue('subtitle', $record, $fw); |
| 109 |
|
116 |
|
| 110 |
# Get Branches, Itemtypes and Locations |
117 |
# Get Branches, Itemtypes and Locations |
|
Lines 118-124
my @items;
Link Here
|
| 118 |
for my $itm (@all_items) { |
125 |
for my $itm (@all_items) { |
| 119 |
push @items, $itm unless ( $itm->{itemlost} && GetHideLostItemsPreference($borrowernumber) && !$showallitems); |
126 |
push @items, $itm unless ( $itm->{itemlost} && GetHideLostItemsPreference($borrowernumber) && !$showallitems); |
| 120 |
} |
127 |
} |
| 121 |
my $dat = &GetBiblioData($biblionumber); |
|
|
| 122 |
|
128 |
|
| 123 |
# get count of holds |
129 |
# get count of holds |
| 124 |
my ( $holdcount, $holds ) = GetReservesFromBiblionumber($biblionumber,1); |
130 |
my ( $holdcount, $holds ) = GetReservesFromBiblionumber($biblionumber,1); |