Lines 23-53
Link Here
|
23 |
use Modern::Perl; |
23 |
use Modern::Perl; |
24 |
|
24 |
|
25 |
use CGI qw ( -utf8 ); |
25 |
use CGI qw ( -utf8 ); |
26 |
use C4::Acquisition qw( SearchOrders ); |
26 |
use C4::Acquisition qw( SearchOrders GetItemnumbersFromOrder ); |
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 GetFrameworkCode GetBiblioData GetBiblio CountItemsIssued GetMarcISBN GetMarcAuthors GetMarcSubjects GetMarcSeries GetMarcUrls GetMarcHosts GetMarcNotes GetRecordValue GetCOinSBiblio GetMarcControlnumber GetMarcISSN ); |
32 |
use C4::Items; |
32 |
use C4::Items qw( GetItem GetItemsInfo GetHiddenItemnumbers ); |
33 |
use C4::Circulation; |
33 |
use C4::Circulation qw( decode GetTransfers ); |
34 |
use C4::Tags qw(get_tags); |
34 |
use C4::Tags qw( get_tags get_tag ); |
35 |
use C4::XISBN qw(get_xisbns get_biblionumber_from_isbn); |
35 |
use C4::XISBN qw( get_xisbns ); |
36 |
use C4::External::Amazon; |
36 |
use C4::External::Amazon qw( get_amazon_tld ); |
37 |
use C4::External::Syndetics qw(get_syndetics_index get_syndetics_summary get_syndetics_toc get_syndetics_excerpt get_syndetics_reviews get_syndetics_anotes ); |
37 |
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::Members; |
38 |
use C4::Members qw( GetMember ); |
39 |
use C4::XSLT; |
39 |
use C4::XSLT qw( get_xslt_sysprefs XSLTParse4Display ); |
40 |
use C4::ShelfBrowser; |
40 |
use C4::ShelfBrowser qw( GetNearbyItems ); |
41 |
use C4::Reserves; |
41 |
use C4::Reserves qw( OnShelfHoldsAllowed GetReserve GetReserveStatus ); |
42 |
use C4::Charset; |
42 |
use C4::Charset qw( SetUTF8Flag ); |
43 |
use C4::Letters; |
43 |
use C4::Letters qw( getalert ); |
44 |
use MARC::Record; |
44 |
use MARC::Record; |
45 |
use MARC::Field; |
45 |
use MARC::Field; |
46 |
use List::MoreUtils qw/any none/; |
46 |
use List::MoreUtils qw/any none/; |
47 |
use C4::Images; |
47 |
use C4::Images qw( ListImagesForBiblio ); |
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 |
use Koha::RecordProcessor; |
51 |
use Koha::RecordProcessor; |
52 |
use Koha::AuthorisedValues; |
52 |
use Koha::AuthorisedValues; |
53 |
use Koha::Biblios; |
53 |
use Koha::Biblios; |