gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 19999: use Modern::Perl in label scripts 

Test Plan:
- Check that it now says 'use Modern::Perl;' and not 'use strict; use
warnings;' in the following labels perl scripts:

label-create-csv.pl
label-create-pdf.pl
label-create-xml.pl
label-edit-batch.pl
label-edit-layout.pl
label-edit-profile.pl
label-edit-template.pl
label-home.pl
label-item-search.pl
label-print.pl
spinelabel-home.pl
spinelabel-print.pl

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Zoe Bennett 2018-01-17 23:00:28 +00:00 committed by Jonathan Druart
parent b4458e71e5
commit 165c56de29
12 changed files with 12 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
labels/label-create-csv.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 Text::CSV_XS;

3
labels/label-create-pdf.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
labels/label-create-xml.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 XML::Simple;

3
labels/label-edit-batch.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 vars qw($debug);
use CGI qw ( -utf8 );

3
labels/label-edit-layout.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 POSIX;

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

3
labels/label-edit-template.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 );

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

3
labels/label-item-search.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 vars qw($debug $cgi_debug);
use CGI qw ( -utf8 );

3
labels/label-print.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 Data::Dumper;

3
labels/spinelabel-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 warnings;
use strict;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;

3
labels/spinelabel-print.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 warnings;
use strict;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;