Browse Source

Bug 20012: use Modern::Perl in Reports perl scripts

Test Case:
Check the following files have been updated from
use strict;
use warnings;
to
use Modern::Perl;

borrowers_out.pl
cat_issues_top.pl
catalogue_out.pl
catalogue_stats.pl
dictionary.pl
issues_avg_stats.pl
issues_stats.pl
itemslost.pl
manager.pl
reports-home.pl
serials_stats.pl
stats.print.pl

Signed-off-by: Jon Knight <J.P.Knight@lboro.ac.uk>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
18.05.x
Charlotte Cordwell 5 years ago
committed by Jonathan Druart
parent
commit
5d9348ffa2
  1. 3
      reports/borrowers_out.pl
  2. 3
      reports/cat_issues_top.pl
  3. 3
      reports/catalogue_out.pl
  4. 3
      reports/catalogue_stats.pl
  5. 3
      reports/dictionary.pl
  6. 3
      reports/issues_avg_stats.pl
  7. 3
      reports/issues_stats.pl
  8. 3
      reports/itemslost.pl
  9. 3
      reports/manager.pl
  10. 3
      reports/reports-home.pl
  11. 3
      reports/serials_stats.pl
  12. 3
      reports/stats.print.pl

3
reports/borrowers_out.pl

@ -17,8 +17,7 @@
# 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 CGI qw ( -utf8 );
use C4::Auth;

3
reports/cat_issues_top.pl

@ -18,8 +18,7 @@
# 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; FIXME - Bug 2505
use Modern::Perl;
use C4::Auth;
use CGI qw ( -utf8 );
use C4::Context;

3
reports/catalogue_out.pl

@ -17,8 +17,7 @@
# 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 CGI qw ( -utf8 );
use C4::Auth;

3
reports/catalogue_stats.pl

@ -18,8 +18,7 @@
# 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; FIXME - Bug 2505
use Modern::Perl;
use C4::Auth;
use CGI qw ( -utf8 );
use C4::Context;

3
reports/dictionary.pl

@ -17,8 +17,7 @@
# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use strict;
use warnings;
use Modern::Perl;
use C4::Auth;
use CGI qw ( -utf8 );
use C4::Output;

3
reports/issues_avg_stats.pl

@ -18,8 +18,7 @@
# 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; FIXME - Bug 2505
use Modern::Perl;
use C4::Auth;
use CGI qw ( -utf8 );
use C4::Context;

3
reports/issues_stats.pl

@ -17,8 +17,7 @@
# 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 CGI qw ( -utf8 );
use Date::Manip;

3
reports/itemslost.pl

@ -25,8 +25,7 @@ This script displays lost items.
=cut
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;

3
reports/manager.pl

@ -17,8 +17,7 @@
# 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; FIXME - Bug 2505
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Context;

3
reports/reports-home.pl

@ -18,8 +18,7 @@
# along with Koha; if not, see <http://www.gnu.org/licenses>.
use strict;
#use warnings; FIXME - Bug 2505
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;

3
reports/serials_stats.pl

@ -17,8 +17,7 @@
# 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;

3
reports/stats.print.pl

@ -1,7 +1,6 @@
#!/usr/bin/perl
use strict;
#use warnings; FIXME - Bug 2505
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Output;

Loading…
Cancel
Save