Lines 24-53
use Modern::Perl;
Link Here
|
24 |
|
24 |
|
25 |
use CGI qw ( -utf8 ); |
25 |
use CGI qw ( -utf8 ); |
26 |
use C4::Acquisition qw( SearchOrders ); |
26 |
use C4::Acquisition qw( SearchOrders ); |
27 |
use C4::Auth qw(:DEFAULT get_session); |
27 |
use C4::Auth qw( get_template_and_user get_session ); |
28 |
use C4::Koha; |
28 |
use C4::Koha qw( GetNormalizedEAN getitemtypeimagelocation GetNormalizedUPC GetNormalizedOCLCNumber GetNormalizedISBN ); |
29 |
use C4::Serials; #uses getsubscriptionfrom biblionumber |
29 |
use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials ); |
30 |
use C4::Output; |
30 |
use C4::Output qw( parametrized_url output_html_with_http_headers ); |
31 |
use C4::Biblio; |
31 |
use C4::Biblio qw( GetMarcBiblio GetBiblioData CountItemsIssued GetMarcISBN GetMarcAuthors GetMarcSubjects GetMarcSeries GetMarcUrls GetMarcControlnumber GetMarcISSN ); |
32 |
use C4::Items; |
32 |
use C4::Items qw( GetItemsInfo GetHiddenItemnumbers sub ); |
33 |
use C4::Circulation; |
33 |
use C4::Circulation qw( GetTransfers ); |
34 |
use C4::Tags qw(get_tags); |
34 |
use C4::Tags qw( get_tags get_tag ); |
35 |
use C4::XISBN qw(get_xisbns); |
35 |
use C4::XISBN qw( get_xisbns ); |
36 |
use C4::External::Amazon; |
36 |
use C4::External::Amazon; |
37 |
use C4::External::BakerTaylor qw( image_url link_url ); |
37 |
use C4::External::BakerTaylor qw( image_url link_url ); |
38 |
use C4::External::Syndetics qw(get_syndetics_index get_syndetics_summary get_syndetics_toc get_syndetics_excerpt get_syndetics_reviews get_syndetics_anotes ); |
38 |
use C4::External::Syndetics qw(get_syndetics_index get_syndetics_summary get_syndetics_toc get_syndetics_excerpt get_syndetics_reviews get_syndetics_anotes ); |
39 |
use C4::Members; |
39 |
use C4::Members; |
40 |
use C4::XSLT; |
40 |
use C4::XSLT; |
41 |
use C4::ShelfBrowser; |
41 |
use C4::ShelfBrowser qw( GetNearbyItems ); |
42 |
use C4::Reserves; |
42 |
use C4::Reserves qw( GetReserveStatus ); |
43 |
use C4::Charset; |
43 |
use C4::Charset qw( SetUTF8Flag ); |
44 |
use C4::Letters; |
44 |
use C4::Letters; |
45 |
use MARC::Record; |
45 |
use MARC::Record; |
46 |
use MARC::Field; |
46 |
use MARC::Field; |
47 |
use List::MoreUtils qw/any none/; |
47 |
use List::MoreUtils qw/any none/; |
48 |
use Koha::DateUtils; |
48 |
use Koha::DateUtils; |
49 |
use C4::HTML5Media; |
49 |
use C4::HTML5Media; |
50 |
use C4::CourseReserves qw(GetItemCourseReservesInfo); |
50 |
use C4::CourseReserves qw( GetItemCourseReservesInfo ); |
51 |
|
51 |
|
52 |
use Koha::Biblios; |
52 |
use Koha::Biblios; |
53 |
use Koha::RecordProcessor; |
53 |
use Koha::RecordProcessor; |