|
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; |