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