Lines 537-548
foreach my $biblioNum (@biblionumbers) {
Link Here
|
537 |
} |
537 |
} |
538 |
|
538 |
|
539 |
# Check of the transferred documents |
539 |
# Check of the transferred documents |
540 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = |
540 |
my $transfer = $item->get_transfer; |
541 |
GetTransfers($itemNum); |
541 |
if ( $transfer->in_transit ) { |
542 |
if ( $transfertwhen && ($transfertwhen ne '') ) { |
542 |
$itemLoopIter->{transfertwhen} = output_pref({ dt => dt_from_string($transfer->datesent), dateonly => 1 }); |
543 |
$itemLoopIter->{transfertwhen} = output_pref({ dt => dt_from_string($transfertwhen), dateonly => 1 }); |
543 |
$itemLoopIter->{transfertfrom} = $transfer->frombranch; |
544 |
$itemLoopIter->{transfertfrom} = $transfertfrom; |
544 |
$itemLoopIter->{transfertto} = $transfer->tobranch; |
545 |
$itemLoopIter->{transfertto} = $transfertto; |
|
|
546 |
$itemLoopIter->{nocancel} = 1; |
545 |
$itemLoopIter->{nocancel} = 1; |
547 |
} |
546 |
} |
548 |
|
547 |
|
549 |
- |
|
|