@@ -, +, @@ --- opac/errors/400.pl | 4 +--- opac/errors/401.pl | 4 +--- opac/errors/402.pl | 4 +--- opac/errors/403.pl | 4 +--- opac/errors/404.pl | 4 +--- opac/errors/500.pl | 4 +--- opac/opac-account-pay-paypal-return.pl | 3 +-- opac/opac-alert-subscribe.pl | 4 +--- opac/opac-authorities-home.pl | 3 +-- opac/opac-authoritiesdetail.pl | 3 +-- opac/opac-browser.pl | 3 +-- opac/opac-ics.pl | 3 +-- opac/opac-image.pl | 3 +-- opac/opac-imageviewer.pl | 3 +-- opac/opac-messaging.pl | 3 +-- opac/opac-modrequest-suspend.pl | 3 +-- opac/opac-modrequest.pl | 3 +-- opac/opac-mymessages.pl | 3 +-- opac/opac-overdrive-search.pl | 3 +-- opac/opac-passwd.pl | 3 +-- opac/opac-patron-image.pl | 3 +-- opac/opac-privacy.pl | 2 +- opac/opac-ratings-ajax.pl | 3 +-- opac/opac-ratings.pl | 3 +-- opac/opac-readingrecord.pl | 3 +-- opac/opac-renew.pl | 3 +-- opac/opac-sendshelf.pl | 3 +-- opac/opac-serial-issues.pl | 3 +-- opac/opac-showreviews.pl | 3 +-- opac/opac-suggestions.pl | 4 ++-- opac/opac-tags_subject.pl | 3 +-- opac/opac-topissues.pl | 3 +-- opac/opac-user.pl | 3 +-- opac/sco/help.pl | 3 +-- opac/sco/printslip.pl | 3 +-- opac/sco/sco-patron-image.pl | 3 +-- opac/svc/overdrive_proxy | 3 +-- opac/svc/suggestion | 3 +-- opac/unapi | 3 +-- 39 files changed, 40 insertions(+), 84 deletions(-) --- a/opac/errors/400.pl +++ a/opac/errors/400.pl @@ -16,9 +16,7 @@ # along with Koha; if not, see . -use strict; -use warnings; - +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/opac/errors/401.pl +++ a/opac/errors/401.pl @@ -16,9 +16,7 @@ # along with Koha; if not, see . -use strict; -use warnings; - +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/opac/errors/402.pl +++ a/opac/errors/402.pl @@ -16,9 +16,7 @@ # along with Koha; if not, see . -use strict; -use warnings; - +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/opac/errors/403.pl +++ a/opac/errors/403.pl @@ -16,9 +16,7 @@ # along with Koha; if not, see . -use strict; -use warnings; - +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/opac/errors/404.pl +++ a/opac/errors/404.pl @@ -16,9 +16,7 @@ # along with Koha; if not, see . -use strict; -use warnings; - +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/opac/errors/500.pl +++ a/opac/errors/500.pl @@ -16,9 +16,7 @@ # along with Koha; if not, see . -use strict; -use warnings; - +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/opac/opac-account-pay-paypal-return.pl +++ a/opac/opac-account-pay-paypal-return.pl @@ -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 utf8; use CGI; --- a/opac/opac-alert-subscribe.pl +++ a/opac/opac-alert-subscribe.pl @@ -18,9 +18,7 @@ # along with Koha; if not, see . -use strict; -use warnings; - +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Output; --- a/opac/opac-authorities-home.pl +++ a/opac/opac-authorities-home.pl @@ -18,8 +18,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 URI::Escape; --- a/opac/opac-authoritiesdetail.pl +++ a/opac/opac-authoritiesdetail.pl @@ -36,8 +36,7 @@ parameters tables. =cut -use strict; -use warnings; +use Modern::Perl; use C4::AuthoritiesMarc; use C4::Auth; --- a/opac/opac-browser.pl +++ a/opac/opac-browser.pl @@ -24,8 +24,7 @@ TODO :: Description here =cut -use strict; -use warnings; +use Modern::Perl; use C4::Auth; use C4::Context; --- a/opac/opac-ics.pl +++ a/opac/opac-ics.pl @@ -19,8 +19,7 @@ # This script builds an ICalendar file (rfc 2445) for use in programs such as Ical -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use Data::ICal; --- a/opac/opac-image.pl +++ a/opac/opac-image.pl @@ -23,8 +23,7 @@ # # -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; --- a/opac/opac-imageviewer.pl +++ a/opac/opac-imageviewer.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 ); use C4::Auth; --- a/opac/opac-messaging.pl +++ a/opac/opac-messaging.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/opac/opac-modrequest-suspend.pl +++ a/opac/opac-modrequest-suspend.pl @@ -15,8 +15,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::Output; --- a/opac/opac-modrequest.pl +++ a/opac/opac-modrequest.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 CGI qw ( -utf8 ); use C4::Output; --- a/opac/opac-mymessages.pl +++ a/opac/opac-mymessages.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/opac/opac-overdrive-search.pl +++ a/opac/opac-overdrive-search.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/opac/opac-passwd.pl +++ a/opac/opac-passwd.pl @@ -18,8 +18,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/opac/opac-patron-image.pl +++ a/opac/opac-patron-image.pl @@ -18,8 +18,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::Members; use CGI qw ( -utf8 ); use CGI::Cookie; # need to check cookies before having CGI parse the POST request --- a/opac/opac-privacy.pl +++ a/opac/opac-privacy.pl @@ -16,7 +16,7 @@ # You should have received a copy of the GNU General Public License # along with Koha; if not, see . -use strict; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; # checkauth, getborrowernumber. --- a/opac/opac-ratings-ajax.pl +++ a/opac/opac-ratings-ajax.pl @@ -23,8 +23,7 @@ A script that takes an ajax json query, and then inserts or modifies a star-rati =cut -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use CGI::Cookie; # need to check cookies before having CGI parse the POST request --- a/opac/opac-ratings.pl +++ a/opac/opac-ratings.pl @@ -25,8 +25,7 @@ note: there is currently no 'delete rating' functionality in this script =cut -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; --- a/opac/opac-readingrecord.pl +++ a/opac/opac-readingrecord.pl @@ -16,8 +16,7 @@ # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); --- a/opac/opac-renew.pl +++ a/opac/opac-renew.pl @@ -21,8 +21,7 @@ # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Circulation; --- a/opac/opac-sendshelf.pl +++ a/opac/opac-sendshelf.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 ); use Encode qw( encode ); --- a/opac/opac-serial-issues.pl +++ a/opac/opac-serial-issues.pl @@ -18,8 +18,7 @@ # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; --- a/opac/opac-showreviews.pl +++ a/opac/opac-showreviews.pl @@ -18,8 +18,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/opac/opac-suggestions.pl +++ a/opac/opac-suggestions.pl @@ -15,8 +15,8 @@ # 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 Encode qw( encode ); --- a/opac/opac-tags_subject.pl +++ a/opac/opac-tags_subject.pl @@ -24,8 +24,7 @@ TODO :: Description here =cut -use strict; -use warnings; +use Modern::Perl; use C4::Auth; use C4::Context; --- a/opac/opac-topissues.pl +++ a/opac/opac-topissues.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; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; --- a/opac/opac-user.pl +++ a/opac/opac-user.pl @@ -17,8 +17,7 @@ # along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 +use Modern::Perl; use CGI qw ( -utf8 ); --- a/opac/sco/help.pl +++ a/opac/sco/help.pl @@ -21,8 +21,7 @@ # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw(get_template_and_user); --- a/opac/sco/printslip.pl +++ a/opac/sco/printslip.pl @@ -26,8 +26,7 @@ It is called from sco-main.pl =cut -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Context; use C4::Auth qw/:DEFAULT get_session/; --- a/opac/sco/sco-patron-image.pl +++ a/opac/sco/sco-patron-image.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 C4::Service; use C4::Members; use Koha::Patron::Images; --- a/opac/svc/overdrive_proxy +++ a/opac/svc/overdrive_proxy @@ -32,8 +32,7 @@ JS side from having to deal with cross-origin/authentication issues. =cut -use strict; -use warnings; +use Modern::Perl; use CGI qw(-oldstyle_urls -utf8); use JSON; --- a/opac/svc/suggestion +++ a/opac/svc/suggestion @@ -51,8 +51,7 @@ Number of suggestions to display. Defaults to 4 in stub mode, 20 otherwise. =cut -use strict; -use warnings; +use Modern::Perl; use C4::Auth; use C4::Context; --- a/opac/unapi +++ a/opac/unapi @@ -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; =head1 NAME --