Lines 208-214
sub GetRecords {
Link Here
|
208 |
|
208 |
|
209 |
# Get most of the needed data |
209 |
# Get most of the needed data |
210 |
my $biblioitemnumber = $biblioitem->{'biblioitemnumber'}; |
210 |
my $biblioitemnumber = $biblioitem->{'biblioitemnumber'}; |
211 |
my @reserves = GetReservesFromBiblionumber( $biblionumber, undef, undef ); |
211 |
my $reserves = GetReservesFromBiblionumber( $biblionumber, undef, undef ); |
212 |
my $issues = GetBiblioIssues($biblionumber); |
212 |
my $issues = GetBiblioIssues($biblionumber); |
213 |
my $items = GetItemsByBiblioitemnumber($biblioitemnumber); |
213 |
my $items = GetItemsByBiblioitemnumber($biblioitemnumber); |
214 |
|
214 |
|
Lines 225-231
sub GetRecords {
Link Here
|
225 |
|
225 |
|
226 |
# Hashref building... |
226 |
# Hashref building... |
227 |
$biblioitem->{'items'}->{'item'} = $items; |
227 |
$biblioitem->{'items'}->{'item'} = $items; |
228 |
$biblioitem->{'reserves'}->{'reserve'} = $reserves[1]; |
228 |
$biblioitem->{'reserves'}->{'reserve'} = $reserves; |
229 |
$biblioitem->{'issues'}->{'issue'} = $issues; |
229 |
$biblioitem->{'issues'}->{'issue'} = $issues; |
230 |
|
230 |
|
231 |
push @records, $biblioitem; |
231 |
push @records, $biblioitem; |