View | Details | Raw Unified | Return to bug 20010
Collapse All | Expand All

(-)a/patroncards/create-pdf.pl (-3 / +1 lines)
Lines 17-25 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
23
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
24
use C4::Auth;
22
use C4::Auth;
25
use Graphics::Magick;
23
use Graphics::Magick;
(-)a/patroncards/edit-batch.pl (-2 / +2 lines)
Lines 18-25 Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use strict;
21
22
use warnings;
22
use Modern::Perl;
23
use vars qw($debug);
23
use vars qw($debug);
24
24
25
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
(-)a/patroncards/edit-layout.pl (-2 / +1 lines)
Lines 18-25 Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use strict;
21
use Modern::Perl;
22
use warnings;
23
22
24
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
25
use Text::CSV_XS;
24
use Text::CSV_XS;
(-)a/patroncards/edit-profile.pl (-2 / +1 lines)
Lines 18-25 Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use strict;
21
use Modern::Perl;
22
use warnings;
23
22
24
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
25
24
(-)a/patroncards/edit-template.pl (-2 / +1 lines)
Lines 18-25 Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use strict;
21
use Modern::Perl;
22
use warnings;
23
22
24
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
25
use autouse 'Data::Dumper' => qw(Dumper);
24
use autouse 'Data::Dumper' => qw(Dumper);
(-)a/patroncards/home.pl (-2 / +1 lines)
Lines 18-25 Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use strict;
21
use Modern::Perl;
22
use warnings;
23
22
24
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
25
24
(-)a/patroncards/image-manage.pl (-2 / +1 lines)
Lines 1-7 Link Here
1
#!/usr/bin/perl
1
#!/usr/bin/perl
2
2
3
use warnings;
3
use Modern::Perl;
4
use strict;
5
4
6
use CGI qw ( -utf8 );
5
use CGI qw ( -utf8 );
7
use Graphics::Magick;
6
use Graphics::Magick;
(-)a/patroncards/manage.pl (-2 / +1 lines)
Lines 18-25 Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use strict;
21
use Modern::Perl;
22
use warnings;
23
use vars qw($debug);
22
use vars qw($debug);
24
23
25
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/patroncards/print.pl (-3 / +1 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
21
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use autouse 'Data::Dumper' => qw(Dumper);
23
use autouse 'Data::Dumper' => qw(Dumper);
25
- 

Return to bug 20010