@@ -, +, @@ --- members/boraccount.pl | 3 +-- members/default_messageprefs.pl | 3 +-- members/deletemem.pl | 3 +-- members/files.pl | 3 +-- members/mancredit.pl | 3 +-- members/maninvoice.pl | 3 +-- members/member-flags.pl | 3 +-- members/member-password.pl | 3 +-- members/memberentry.pl | 3 +-- members/members-home.pl | 3 +-- members/members-update-do.pl | 3 +-- members/moremember.pl | 3 +-- members/notices.pl | 3 +-- members/pay.pl | 3 +-- members/paycollect.pl | 3 +-- members/printfeercpt.pl | 3 +-- members/printinvoice.pl | 3 +-- members/printslip.pl | 3 +-- members/readingrec.pl | 3 +-- members/routing-lists.pl | 3 +-- members/setstatus.pl | 3 +-- members/update-child.pl | 3 +-- 22 files changed, 22 insertions(+), 44 deletions(-) --- a/members/boraccount.pl +++ a/members/boraccount.pl @@ -22,8 +22,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use C4::Auth; use C4::Output; --- a/members/default_messageprefs.pl +++ a/members/default_messageprefs.pl @@ -18,8 +18,7 @@ # along with Koha; if not, see . # -use strict; -use warnings; +use Modern::Perl; use C4::Service; use C4::Form::MessagingPreferences; --- a/members/deletemem.pl +++ a/members/deletemem.pl @@ -21,8 +21,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; --- a/members/files.pl +++ a/members/files.pl @@ -17,8 +17,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); --- a/members/mancredit.pl +++ a/members/mancredit.pl @@ -22,8 +22,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use C4::Auth; use C4::Output; --- a/members/maninvoice.pl +++ a/members/maninvoice.pl @@ -22,8 +22,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use C4::Auth; use C4::Output; --- a/members/member-flags.pl +++ a/members/member-flags.pl @@ -4,8 +4,7 @@ # Written by Steve Tonnesen # July 26, 2002 (my birthday!) -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Output; --- a/members/member-password.pl +++ a/members/member-password.pl @@ -4,8 +4,7 @@ #by chris@katipo.co.nz #converted to using templates 3/16/03 by mwhansen@hmc.edu -use strict; -use warnings; +use Modern::Perl; use C4::Auth; use Koha::AuthUtils; --- a/members/memberentry.pl +++ a/members/memberentry.pl @@ -19,8 +19,7 @@ # along with Koha; if not, see . # pragma -use strict; -use warnings; +use Modern::Perl; # external modules use CGI qw ( -utf8 ); --- a/members/members-home.pl +++ a/members/members-home.pl @@ -16,8 +16,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; --- a/members/members-update-do.pl +++ a/members/members-update-do.pl @@ -16,8 +16,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; --- a/members/moremember.pl +++ a/members/moremember.pl @@ -33,8 +33,7 @@ =cut -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use CGI qw ( -utf8 ); use HTML::Entities; use C4::Context; --- a/members/notices.pl +++ a/members/notices.pl @@ -19,8 +19,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use C4::Auth; use C4::Output; use CGI qw ( -utf8 ); --- a/members/pay.pl +++ a/members/pay.pl @@ -26,8 +26,7 @@ =cut -use strict; -use warnings; +use Modern::Perl; use URI::Escape; use C4::Context; --- a/members/paycollect.pl +++ a/members/paycollect.pl @@ -17,8 +17,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use URI::Escape; use C4::Context; use C4::Auth; --- a/members/printfeercpt.pl +++ a/members/printfeercpt.pl @@ -22,8 +22,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use C4::Auth; use C4::Output; --- a/members/printinvoice.pl +++ a/members/printinvoice.pl @@ -20,8 +20,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use C4::Auth; use C4::Output; --- a/members/printslip.pl +++ a/members/printslip.pl @@ -32,8 +32,7 @@ =cut -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; use C4::Auth qw/:DEFAULT get_session/; --- a/members/readingrec.pl +++ a/members/readingrec.pl @@ -20,8 +20,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); --- a/members/routing-lists.pl +++ a/members/routing-lists.pl @@ -17,8 +17,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Output; use C4::Auth qw/:DEFAULT/; --- a/members/setstatus.pl +++ a/members/setstatus.pl @@ -23,8 +23,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; --- a/members/update-child.pl +++ a/members/update-child.pl @@ -26,8 +26,7 @@ =cut -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; use C4::Auth; --