|
Lines 28-34
use C4::Reserves;
Link Here
|
| 28 |
use C4::Biblio; |
28 |
use C4::Biblio; |
| 29 |
use C4::Items; |
29 |
use C4::Items; |
| 30 |
use C4::Output; |
30 |
use C4::Output; |
| 31 |
use C4::Dates qw/format_date/; |
|
|
| 32 |
use C4::Context; |
31 |
use C4::Context; |
| 33 |
use C4::Members; |
32 |
use C4::Members; |
| 34 |
use C4::Branch; # GetBranches |
33 |
use C4::Branch; # GetBranches |
|
Lines 467-473
foreach my $biblioNum (@biblionumbers) {
Link Here
|
| 467 |
|
466 |
|
| 468 |
if ( defined $reservedate ) { |
467 |
if ( defined $reservedate ) { |
| 469 |
$itemLoopIter->{backgroundcolor} = 'reserved'; |
468 |
$itemLoopIter->{backgroundcolor} = 'reserved'; |
| 470 |
$itemLoopIter->{reservedate} = format_date($reservedate); |
469 |
$itemLoopIter->{reservedate} = output_pref({ dt => dt_from_string($reservedate), dateonly => 1 }); |
| 471 |
$itemLoopIter->{ReservedForBorrowernumber} = $reservedfor; |
470 |
$itemLoopIter->{ReservedForBorrowernumber} = $reservedfor; |
| 472 |
$itemLoopIter->{ReservedForSurname} = $ItemBorrowerReserveInfo->{'surname'}; |
471 |
$itemLoopIter->{ReservedForSurname} = $ItemBorrowerReserveInfo->{'surname'}; |
| 473 |
$itemLoopIter->{ReservedForFirstname} = $ItemBorrowerReserveInfo->{'firstname'}; |
472 |
$itemLoopIter->{ReservedForFirstname} = $ItemBorrowerReserveInfo->{'firstname'}; |
|
Lines 501-507
foreach my $biblioNum (@biblionumbers) {
Link Here
|
| 501 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = |
500 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = |
| 502 |
GetTransfers($itemNum); |
501 |
GetTransfers($itemNum); |
| 503 |
if ( $transfertwhen && ($transfertwhen ne '') ) { |
502 |
if ( $transfertwhen && ($transfertwhen ne '') ) { |
| 504 |
$itemLoopIter->{transfertwhen} = format_date($transfertwhen); |
503 |
$itemLoopIter->{transfertwhen} = output_pref({ dt => dt_from_string($transfertwhen), dateonly => 1 }); |
| 505 |
$itemLoopIter->{transfertfrom} = |
504 |
$itemLoopIter->{transfertfrom} = |
| 506 |
$branches->{$transfertfrom}{branchname}; |
505 |
$branches->{$transfertfrom}{branchname}; |
| 507 |
$itemLoopIter->{transfertto} = $branches->{$transfertto}{branchname}; |
506 |
$itemLoopIter->{transfertto} = $branches->{$transfertto}{branchname}; |