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