|
Lines 334-345
foreach my $item (@items) {
Link Here
|
| 334 |
} |
334 |
} |
| 335 |
|
335 |
|
| 336 |
# Check the transit status |
336 |
# Check the transit status |
| 337 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($item->{itemnumber}); |
337 |
my $transfers = $item_object->get_transfers; |
| 338 |
if ( defined( $transfertwhen ) && ( $transfertwhen ne '' ) ) { |
338 |
my $transfer = $transfers->next; |
| 339 |
$item->{transfertwhen} = $transfertwhen; |
339 |
if ( defined($transfer) && $transfer->in_transit ) { |
| 340 |
$item->{transfertfrom} = $transfertfrom; |
340 |
$item->{transfertwhen} = $transfer->datesent; |
| 341 |
$item->{transfertto} = $transfertto; |
341 |
$item->{transfertfrom} = $transfer->frombranch; |
| 342 |
$item->{nocancel} = 1; |
342 |
$item->{transfertto} = $transfer->tobranch; |
|
|
343 |
$item->{nocancel} = 1; |
| 343 |
} |
344 |
} |
| 344 |
|
345 |
|
| 345 |
foreach my $f (qw( itemnotes )) { |
346 |
foreach my $f (qw( itemnotes )) { |
| 346 |
- |
|
|