X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=reports%2Fserials_stats.pl;h=0c5ed28331e9ef4facd921fcac968e9d0e580b62;hb=40613eb3c870f941e941280ab7c222a20bf778aa;hp=4ca99c3a63bfd2a425a064323f0d283e7e579f15;hpb=a6c9bd0eb55c32d5632625144775271f20aa15f7;p=srvgit diff --git a/reports/serials_stats.pl b/reports/serials_stats.pl index 4ca99c3a63..0c5ed28331 100755 --- a/reports/serials_stats.pl +++ b/reports/serials_stats.pl @@ -17,13 +17,10 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use C4::Auth; use CGI qw ( -utf8 ); use C4::Context; -use C4::Branch; # GetBranches -use C4::Dates qw/format_date/; use C4::Output; use C4::Koha; use C4::Reports; @@ -35,8 +32,6 @@ plugin that shows a stats on serials =head1 DESCRIPTION -=over 2 - =cut my $input = new CGI; @@ -156,7 +151,7 @@ if($do_it){ CGIextChoice => $CGIextChoice, CGIsepChoice => $CGIsepChoice, booksellers => \@booksellers, - branches => GetBranchesLoop(C4::Context->userenv->{'branch'})); + ); } output_html_with_http_headers $input, $cookie, $template->output;