use Modern::Perl;
-use C4::Auth;
+use C4::Auth qw( get_template_and_user );
use C4::Context;
-use C4::Output;
+use C4::Output qw( parametrized_url output_html_with_http_headers );
use CGI qw ( -utf8 );
-use C4::Biblio;
-use C4::Items;
+use C4::Biblio qw(
+ CountItemsIssued
+ GetISBDView
+ GetMarcControlnumber
+ GetMarcISSN
+ TransformMarcToKoha
+);
use C4::Reserves;
-use C4::Acquisition;
-use C4::Serials; # uses getsubscriptionfrom biblionumber
-use C4::Koha;
+use C4::Serials qw( CountSubscriptionFromBiblionumber SearchSubscriptions GetLatestSerials );
+use C4::Koha qw(
+ GetNormalizedEAN
+ GetNormalizedISBN
+ GetNormalizedOCLCNumber
+ GetNormalizedUPC
+);
use Koha::CirculationRules;
use Koha::ItemTypes;
use Koha::Patrons;
query => $query,
type => "opac",
authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
- debug => 1,
}
);