X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=catalogue%2Fissuehistory.pl;h=4f361367bfe40745d23585e7f27bd1b0169dd2ec;hb=be54d835cb3c2801193d574c0b38ca4d3e7503b4;hp=0630489a95f2d2654336ecda919826a68e776b64;hpb=638786e719fb297ae976061b09a71f3d788416f4;p=koha-ffzg.git

diff --git a/catalogue/issuehistory.pl b/catalogue/issuehistory.pl
index 0630489a95..4f361367bf 100755
--- a/catalogue/issuehistory.pl
+++ b/catalogue/issuehistory.pl
@@ -19,18 +19,17 @@
 use Modern::Perl;
 
 use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Output;
+use C4::Auth qw( get_template_and_user );
+use C4::Output qw( output_html_with_http_headers );
 
-use C4::Biblio;    # GetBiblio
-use C4::Search;		# enabled_staff_search_views
-use C4::Serials;
+use C4::Search qw( enabled_staff_search_views );
+use C4::Serials qw( CountSubscriptionFromBiblionumber );
 use Koha::Checkouts;
 use Koha::Old::Checkouts;
 
 use Koha::Biblios;
 
-my $query = new CGI;
+my $query = CGI->new;
 my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
     {
         template_name   => "catalogue/issuehistory.tt",
@@ -48,14 +47,14 @@ my @checkouts = Koha::Checkouts->search(
         join       => 'item',
         order_by   => 'timestamp',
     }
-);
+)->as_list;
 my @old_checkouts = Koha::Old::Checkouts->search(
     { biblionumber => $biblionumber },
     {
         join       => 'item',
         order_by   => 'timestamp',
     }
-);
+)->as_list;
 
 my $biblio = Koha::Biblios->find( $biblionumber );