|
Lines 518-530
foreach my $biblionumber (@biblionumbers) {
Link Here
|
| 518 |
} |
518 |
} |
| 519 |
|
519 |
|
| 520 |
# Check the transit status |
520 |
# Check the transit status |
| 521 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = |
521 |
my $transfer = $item_object->get_transfer; |
| 522 |
GetTransfers($itemnumber); |
522 |
if ( $transfer->in_transit ) { |
| 523 |
|
523 |
$item->{transfertwhen} = output_pref({ dt => dt_from_string($transfer->datesent), dateonly => 1 }); |
| 524 |
if ( defined $transfertwhen && $transfertwhen ne '' ) { |
524 |
$item->{transfertfrom} = $transfer->frombranch; |
| 525 |
$item->{transfertwhen} = output_pref({ dt => dt_from_string( $transfertwhen ), dateonly => 1 }); |
525 |
$item->{transfertto} = $transfer->tobranch; |
| 526 |
$item->{transfertfrom} = $transfertfrom; |
|
|
| 527 |
$item->{transfertto} = $transfertto; |
| 528 |
$item->{nocancel} = 1; |
526 |
$item->{nocancel} = 1; |
| 529 |
} |
527 |
} |
| 530 |
|
528 |
|
| 531 |
- |
|
|