Koha-community
/
Koha
13
5
Fork 0
Code Issues Releases Wiki Activity
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 6 years ago
committed by Jonathan Druart
parent
8ba6bd033f
commit
3f6a7933b8
21 changed files with 21 additions and 42 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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
View File

@ -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;

Write Preview
Loading…
Cancel
Save