Browse Source

Bug 20010: use Modern::Perl in Patroncards perl scripts

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

create-pdf.pl
edit-batch.pl
edit-layout.pl
edit-profile.pl
edit-template.pl
home.pl
image-manage.pl
manage.pl
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
Grace Smyth 4 years ago
committed by Jonathan Druart
parent
commit
3ded637bc5
  1. 4
      patroncards/create-pdf.pl
  2. 4
      patroncards/edit-batch.pl
  3. 3
      patroncards/edit-layout.pl
  4. 3
      patroncards/edit-profile.pl
  5. 3
      patroncards/edit-template.pl
  6. 3
      patroncards/home.pl
  7. 3
      patroncards/image-manage.pl
  8. 3
      patroncards/manage.pl
  9. 3
      patroncards/print.pl

4
patroncards/create-pdf.pl

@ -17,9 +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;
use Graphics::Magick;

4
patroncards/edit-batch.pl

@ -18,8 +18,8 @@
# 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 vars qw($debug);
use CGI qw ( -utf8 );

3
patroncards/edit-layout.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 Text::CSV_XS;

3
patroncards/edit-profile.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 );

3
patroncards/edit-template.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 autouse 'Data::Dumper' => qw(Dumper);

3
patroncards/home.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 );

3
patroncards/image-manage.pl

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

3
patroncards/manage.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 vars qw($debug);
use CGI qw ( -utf8 );

3
patroncards/print.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 autouse 'Data::Dumper' => qw(Dumper);

Loading…
Cancel
Save