Lines 34-40
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLat
Link Here
|
34 |
use C4::Output qw( output_html_with_http_headers ); |
34 |
use C4::Output qw( output_html_with_http_headers ); |
35 |
use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio ); |
35 |
use C4::Biblio qw( GetBiblioData GetFrameworkCode GetMarcBiblio ); |
36 |
use C4::Items qw( GetAnalyticsCount GetHostItemsInfo GetItemsInfo ); |
36 |
use C4::Items qw( GetAnalyticsCount GetHostItemsInfo GetItemsInfo ); |
37 |
use C4::Circulation qw( GetTransfers ); |
|
|
38 |
use C4::Reserves; |
37 |
use C4::Reserves; |
39 |
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials ); |
38 |
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials ); |
40 |
use C4::XISBN qw( get_xisbns ); |
39 |
use C4::XISBN qw( get_xisbns ); |
Lines 347-357
foreach my $item (@items) {
Link Here
|
347 |
} |
346 |
} |
348 |
|
347 |
|
349 |
# Check the transit status |
348 |
# Check the transit status |
350 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($item->{itemnumber}); |
349 |
my $transfer = $item_object->get_transfer; |
351 |
if ( defined( $transfertwhen ) && ( $transfertwhen ne '' ) ) { |
350 |
if ( $transfer->in_transit ) { |
352 |
$item->{transfertwhen} = $transfertwhen; |
351 |
$item->{transfertwhen} = output_pref({ dt => dt_from_string($transfer->datesent), dateonly => 1 }); |
353 |
$item->{transfertfrom} = $transfertfrom; |
352 |
$item->{transfertfrom} = $transfer->frombranch; |
354 |
$item->{transfertto} = $transfertto; |
353 |
$item->{transfertto} = $transfer->tobranch; |
355 |
$item->{nocancel} = 1; |
354 |
$item->{nocancel} = 1; |
356 |
} |
355 |
} |
357 |
|
356 |
|
358 |
- |
|
|