|
Lines 98-109
unless (defined($record)) {
Link Here
|
| 98 |
exit; |
98 |
exit; |
| 99 |
} |
99 |
} |
| 100 |
|
100 |
|
|
|
101 |
my $dat = &GetBiblioData($biblionumber); |
| 102 |
|
| 101 |
my $marcnotesarray = GetMarcNotes( $record, $marcflavour ); |
103 |
my $marcnotesarray = GetMarcNotes( $record, $marcflavour ); |
| 102 |
my $marcisbnsarray = GetMarcISBN( $record, $marcflavour ); |
104 |
my $marcisbnsarray = GetMarcISBN( $record, $marcflavour ); |
| 103 |
my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour ); |
105 |
my $marcauthorsarray = GetMarcAuthors( $record, $marcflavour ); |
| 104 |
my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour ); |
106 |
my $marcsubjctsarray = GetMarcSubjects( $record, $marcflavour ); |
| 105 |
my $marcseriesarray = GetMarcSeries($record,$marcflavour); |
107 |
my $marcseriesarray = GetMarcSeries($record,$marcflavour); |
| 106 |
my $marcurlsarray = GetMarcUrls ($record,$marcflavour); |
108 |
my $marcurlsarray = GetMarcUrls ($record,$marcflavour,$dat->{issn}); |
| 107 |
my $subtitle = GetRecordValue('subtitle', $record, $fw); |
109 |
my $subtitle = GetRecordValue('subtitle', $record, $fw); |
| 108 |
|
110 |
|
| 109 |
# Get Branches, Itemtypes and Locations |
111 |
# Get Branches, Itemtypes and Locations |
|
Lines 117-123
my @items;
Link Here
|
| 117 |
for my $itm (@all_items) { |
119 |
for my $itm (@all_items) { |
| 118 |
push @items, $itm unless ( $itm->{itemlost} && GetHideLostItemsPreference($borrowernumber) && !$showallitems); |
120 |
push @items, $itm unless ( $itm->{itemlost} && GetHideLostItemsPreference($borrowernumber) && !$showallitems); |
| 119 |
} |
121 |
} |
| 120 |
my $dat = &GetBiblioData($biblionumber); |
|
|
| 121 |
|
122 |
|
| 122 |
# get count of holds |
123 |
# get count of holds |
| 123 |
my ( $holdcount, $holds ) = GetReservesFromBiblionumber($biblionumber,1); |
124 |
my ( $holdcount, $holds ) = GetReservesFromBiblionumber($biblionumber,1); |