@@ -, +, @@ --- serials/acqui-search-result.pl | 3 +-- serials/acqui-search.pl | 3 +-- serials/checkexpiration.pl | 3 +-- serials/reorder_members.pl | 3 +-- serials/routing-preview.pl | 3 +-- serials/routing.pl | 3 +-- serials/serials-collection.pl | 3 +-- serials/serials-edit.pl | 3 +-- serials/subscription-add.pl | 3 +-- serials/subscription-bib-search.pl | 3 +-- serials/subscription-renew.pl | 3 +-- serials/viewalerts.pl | 3 +-- 12 files changed, 12 insertions(+), 24 deletions(-) --- a/serials/acqui-search-result.pl +++ a/serials/acqui-search-result.pl @@ -40,8 +40,7 @@ acqui-search-result.pl =cut -use strict; -use warnings; +use Modern::Perl; use C4::Auth; use C4::Biblio; use C4::Output; --- a/serials/acqui-search.pl +++ a/serials/acqui-search.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; use C4::Output; --- a/serials/checkexpiration.pl +++ a/serials/checkexpiration.pl @@ -42,8 +42,7 @@ The date to filter on. =cut -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Serials; # GetExpirationDate --- a/serials/reorder_members.pl +++ a/serials/reorder_members.pl @@ -18,8 +18,7 @@ # In this instance it is in fact a setting up of a list of reserves for the item # where the hierarchical order can be changed on the fly and a routing list can be # printed out -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth qw( checkauth ); use C4::Serials qw( reorder_members ); --- a/serials/routing-preview.pl +++ a/serials/routing-preview.pl @@ -18,8 +18,7 @@ # Routing Preview.pl script used to view a routing list after creation # lets one print out routing slip and create (in this instance) the heirarchy # of reserves for the serial -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Koha; use C4::Auth; --- a/serials/routing.pl +++ a/serials/routing.pl @@ -25,8 +25,7 @@ printed out =cut -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Koha; use C4::Auth; --- a/serials/serials-collection.pl +++ a/serials/serials-collection.pl @@ -19,8 +19,7 @@ # along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Auth; use C4::Koha; --- a/serials/serials-edit.pl +++ a/serials/serials-edit.pl @@ -61,8 +61,7 @@ op can be : =cut -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use Encode qw( decode is_utf8 ); use C4::Auth; --- a/serials/subscription-add.pl +++ a/serials/subscription-add.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 Date::Calc qw(Today Day_of_Year Week_of_Year Add_Delta_Days Add_Delta_YM); --- a/serials/subscription-bib-search.pl +++ a/serials/subscription-bib-search.pl @@ -46,8 +46,7 @@ to multipage gestion. =cut -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use C4::Koha; --- a/serials/subscription-renew.pl +++ a/serials/subscription-renew.pl @@ -43,8 +43,7 @@ Id of the subscription this script has to renew =cut -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); use Carp; --- a/serials/viewalerts.pl +++ a/serials/viewalerts.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; use C4::Context; --