|
Lines 418-432
sub GetPatronInfo {
Link Here
|
| 418 |
foreach my $reserve (@reserves) { |
418 |
foreach my $reserve (@reserves) { |
| 419 |
|
419 |
|
| 420 |
# Get additional informations |
420 |
# Get additional informations |
| 421 |
my $item = GetBiblioFromItemNumber( $reserve->{'itemnumber'}, undef ); |
421 |
my $item = Koha::Items->find( $reserve->{itemnumber} ); |
|
|
422 |
my $biblio = $item->biblio; |
| 423 |
my $biblioitem = $biblio->biblioitem; |
| 422 |
my $library = Koha::Libraries->find( $reserve->{branchcode} ); |
424 |
my $library = Koha::Libraries->find( $reserve->{branchcode} ); |
| 423 |
my $branchname = $library ? $library->branchname : ''; |
425 |
my $branchname = $library ? $library->branchname : ''; |
| 424 |
|
426 |
|
| 425 |
# Remove unwanted fields |
427 |
# Remove unwanted fields |
|
|
428 |
$item = $item->unblessed; |
| 426 |
delete $item->{'more_subfields_xml'}; |
429 |
delete $item->{'more_subfields_xml'}; |
|
|
430 |
$biblio = $biblio->unblessed; |
| 431 |
$biblioitem = $biblioitem->unblessed; |
| 427 |
|
432 |
|
| 428 |
# Add additional fields |
433 |
# Add additional fields |
| 429 |
$reserve->{'item'} = $item; |
434 |
$reserve->{'item'} = { %$item, %$biblio, %$biblioitem }; |
| 430 |
$reserve->{'branchname'} = $branchname; |
435 |
$reserve->{'branchname'} = $branchname; |
| 431 |
$reserve->{'title'} = GetBiblio( $reserve->{'biblionumber'} )->{'title'}; |
436 |
$reserve->{'title'} = GetBiblio( $reserve->{'biblionumber'} )->{'title'}; |
| 432 |
} |
437 |
} |
| 433 |
- |
|
|