Browse Source

Bug 19992: use Modern::Perl in Admin perl scripts

Test plan:
Check use warnings; use strict doesn't exist and use Modern::Perl is written instead in the following files:

admin/admin-home.pl
admin/aqcontract.pl
admin/aqplan.pl
admin/auth_tag_structure.pl
admin/branch_transfer_limits.pl
admin/check_budget_parent.pl
admin/check_parent_total.pl
admin/checkmarc.pl
admin/classsources.pl
admin/clone-rules.pl
admin/didyoumean.pl
admin/edi_accounts.pl
admin/edi_ean_accounts.pl
admin/import_export_framework.pl
admin/item_circulation_alerts.pl
admin/marctagstructure.pl
admin/matching-rules.pl
admin/printers.pl
admin/smart-rules.pl
admin/systempreferences.pl
admin/transport-cost-matrix.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
Jenny Way 5 years ago
committed by Jonathan Druart
parent
commit
3f6a7933b8
  1. 3
      admin/admin-home.pl
  2. 3
      admin/aqcontract.pl
  3. 3
      admin/aqplan.pl
  4. 3
      admin/auth_tag_structure.pl
  5. 3
      admin/branch_transfer_limits.pl
  6. 3
      admin/check_budget_parent.pl
  7. 3
      admin/check_parent_total.pl
  8. 3
      admin/checkmarc.pl
  9. 3
      admin/classsources.pl
  10. 3
      admin/clone-rules.pl
  11. 3
      admin/didyoumean.pl
  12. 3
      admin/edi_accounts.pl
  13. 3
      admin/edi_ean_accounts.pl
  14. 3
      admin/import_export_framework.pl
  15. 3
      admin/item_circulation_alerts.pl
  16. 3
      admin/marctagstructure.pl
  17. 3
      admin/matching-rules.pl
  18. 3
      admin/printers.pl
  19. 3
      admin/smart-rules.pl
  20. 3
      admin/systempreferences.pl
  21. 3
      admin/transport-cost-matrix.pl

3
admin/admin-home.pl

@ -15,8 +15,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
admin/aqcontract.pl

@ -20,8 +20,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::Context;
use C4::Auth;

3
admin/aqplan.pl

@ -20,8 +20,7 @@
#written 20/02/2002 by paul.poulain@free.fr
# This software is placed under the gnu General Public License, v2 (http://www.gnu.org/licenses/gpl.html)
use strict;
#use warnings; FIXME - Bug 2505
use Modern::Perl;
use CGI qw ( -utf8 );
use List::Util qw/min/;
use Date::Calc qw/Delta_YMD Easter_Sunday Today Decode_Date_EU/;

3
admin/auth_tag_structure.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 CGI qw ( -utf8 );
use C4::Auth;
use C4::Koha;

3
admin/branch_transfer_limits.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;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;

3
admin/check_budget_parent.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::Context;
use C4::Output;

3
admin/check_parent_total.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::Context;
use C4::Output;

3
admin/checkmarc.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::Output;
use C4::Auth;
use CGI qw ( -utf8 );

3
admin/classsources.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::Context;

3
admin/clone-rules.pl

@ -25,8 +25,7 @@
#
# The script can be called with one of the parameters, both or none
use strict;
#use warnings; FIXME - Bug 2505
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Context;
use C4::Output;

3
admin/didyoumean.pl

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

3
admin/edi_accounts.pl

@ -17,8 +17,7 @@
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
use warnings;
use Modern::Perl;
use CGI;
use C4::Auth;
use C4::Output;

3
admin/edi_ean_accounts.pl

@ -17,8 +17,7 @@
# with Koha; if not, write to the Free Software Foundation, Inc.,
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
use strict;
use warnings;
use Modern::Perl;
use CGI;
use C4::Auth;
use C4::Output;

3
admin/import_export_framework.pl

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

3
admin/item_circulation_alerts.pl

@ -15,8 +15,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 File::Basename;

3
admin/marctagstructure.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;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Koha;

3
admin/matching-rules.pl

@ -18,8 +18,7 @@
# 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
admin/printers.pl

@ -37,8 +37,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::Context;
use C4::Output;

3
admin/smart-rules.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::Context;
use C4::Output;

3
admin/systempreferences.pl

@ -40,8 +40,7 @@ ALSO :
=cut
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );
use MIME::Base64;

3
admin/transport-cost-matrix.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::Context;
use C4::Output;

Loading…
Cancel
Save