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