|
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 42-48
use C4::External::Amazon qw( get_amazon_tld );
Link Here
|
| 42 |
use C4::Search qw( z3950_search_args enabled_staff_search_views new_record_from_zebra ); |
41 |
use C4::Search qw( z3950_search_args enabled_staff_search_views new_record_from_zebra ); |
| 43 |
use C4::Tags qw( get_tags ); |
42 |
use C4::Tags qw( get_tags ); |
| 44 |
use C4::XSLT qw( XSLTParse4Display ); |
43 |
use C4::XSLT qw( XSLTParse4Display ); |
| 45 |
use Koha::DateUtils qw( format_sqldatetime ); |
44 |
use Koha::DateUtils qw( format_sqldatetime output_pref ); |
| 46 |
use C4::HTML5Media; |
45 |
use C4::HTML5Media; |
| 47 |
use C4::CourseReserves qw( GetItemCourseReservesInfo ); |
46 |
use C4::CourseReserves qw( GetItemCourseReservesInfo ); |
| 48 |
use Koha::AuthorisedValues; |
47 |
use Koha::AuthorisedValues; |
|
Lines 345-355
foreach my $item (@items) {
Link Here
|
| 345 |
} |
344 |
} |
| 346 |
|
345 |
|
| 347 |
# Check the transit status |
346 |
# Check the transit status |
| 348 |
my ( $transfertwhen, $transfertfrom, $transfertto ) = GetTransfers($item->{itemnumber}); |
347 |
my $transfer = $item_object->get_transfer; |
| 349 |
if ( defined( $transfertwhen ) && ( $transfertwhen ne '' ) ) { |
348 |
if ( $transfer && $transfer->in_transit ) { |
| 350 |
$item->{transfertwhen} = $transfertwhen; |
349 |
$item->{transfertwhen} = output_pref({ dt => dt_from_string($transfer->datesent) }); |
| 351 |
$item->{transfertfrom} = $transfertfrom; |
350 |
$item->{transfertfrom} = $transfer->frombranch; |
| 352 |
$item->{transfertto} = $transfertto; |
351 |
$item->{transfertto} = $transfer->tobranch; |
| 353 |
$item->{nocancel} = 1; |
352 |
$item->{nocancel} = 1; |
| 354 |
} |
353 |
} |
| 355 |
|
354 |
|
| 356 |
- |
|
|