Lines 204-212
sub GetRecords {
Link Here
|
204 |
$biblioitem->{marcxml} = $record->as_xml_record(); |
204 |
$biblioitem->{marcxml} = $record->as_xml_record(); |
205 |
} |
205 |
} |
206 |
|
206 |
|
207 |
# We don't want MARC to be displayed |
|
|
208 |
delete $biblioitem->{'marc'}; |
209 |
|
210 |
# Get most of the needed data |
207 |
# Get most of the needed data |
211 |
my $biblioitemnumber = $biblioitem->{'biblioitemnumber'}; |
208 |
my $biblioitemnumber = $biblioitem->{'biblioitemnumber'}; |
212 |
my $reserves = GetReservesFromBiblionumber({ biblionumber => $biblionumber }); |
209 |
my $reserves = GetReservesFromBiblionumber({ biblionumber => $biblionumber }); |
Lines 409-415
sub GetPatronInfo {
Link Here
|
409 |
my $branchname = GetBranchName( $reserve->{'branchcode'} ); |
406 |
my $branchname = GetBranchName( $reserve->{'branchcode'} ); |
410 |
|
407 |
|
411 |
# Remove unwanted fields |
408 |
# Remove unwanted fields |
412 |
delete $item->{'marc'}; |
|
|
413 |
delete $item->{'marcxml'}; |
409 |
delete $item->{'marcxml'}; |
414 |
delete $item->{'more_subfields_xml'}; |
410 |
delete $item->{'more_subfields_xml'}; |
415 |
|
411 |
|
416 |
- |
|
|