Bug 23805: Update 'C' to 'CREDIT' for consistency
[srvgit] / reports / serials_stats.pl
index 4ca99c3..0c5ed28 100755 (executable)
 # You should have received a copy of the GNU General Public License
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
-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;