Lines 37-43
use C4::Reserves qw( RevertWaitingStatus AlterPriority ToggleLowestPriority Togg
Link Here
|
37 |
use C4::Items qw( get_hostitemnumbers_of ); |
37 |
use C4::Items qw( get_hostitemnumbers_of ); |
38 |
use C4::Koha qw( getitemtypeimagelocation ); |
38 |
use C4::Koha qw( getitemtypeimagelocation ); |
39 |
use C4::Serials qw( CountSubscriptionFromBiblionumber ); |
39 |
use C4::Serials qw( CountSubscriptionFromBiblionumber ); |
40 |
use C4::Circulation qw( GetTransfers _GetCircControlBranch GetBranchItemRule ); |
40 |
use C4::Circulation qw( _GetCircControlBranch GetBranchItemRule ); |
41 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
41 |
use Koha::DateUtils qw( dt_from_string output_pref ); |
42 |
use C4::Utils::DataTables::Members; |
42 |
use C4::Utils::DataTables::Members; |
43 |
use C4::Search qw( enabled_staff_search_views ); |
43 |
use C4::Search qw( enabled_staff_search_views ); |
Lines 538-550
foreach my $biblionumber (@biblionumbers) {
Link Here
|
538 |
} |
538 |
} |
539 |
|
539 |
|
540 |
# Check the transit status |
540 |
# Check the transit status |
541 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = |
541 |
my $transfer = $item_object->get_transfer; |
542 |
GetTransfers($itemnumber); |
542 |
if ( $transfer->in_transit ) { |
543 |
|
543 |
$item->{transfertwhen} = output_pref({ dt => dt_from_string($transfer->datesent), dateonly => 1 }); |
544 |
if ( defined $transfertwhen && $transfertwhen ne '' ) { |
544 |
$item->{transfertfrom} = $transfer->frombranch; |
545 |
$item->{transfertwhen} = output_pref({ dt => dt_from_string( $transfertwhen ), dateonly => 1 }); |
545 |
$item->{transfertto} = $transfer->tobranch; |
546 |
$item->{transfertfrom} = $transfertfrom; |
|
|
547 |
$item->{transfertto} = $transfertto; |
548 |
$item->{nocancel} = 1; |
546 |
$item->{nocancel} = 1; |
549 |
} |
547 |
} |
550 |
|
548 |
|
551 |
- |
|
|