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

Bug 20015: use Modern::Perl in Serials perl script 

Test plan:
Check that use strict; use warnings; doesn't exist in the following
files and use Modern::Perl; is written instead.
acqui-search-result.pl
acqui-search.pl
checkexpiration.pl
reorder_members.pl
routing-preview.pl
routing.pl
serials-collection.pl
serials-edit.pl
subscription-add.pl
subscription-bib-search.pl
subscription-renew.pl
viewalerts.pl

Signed-off-by: Jon Knight <J.P.Knight@lboro.ac.uk>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Jenny Way 2018-01-18 00:56:42 +00:00 committed by Jonathan Druart
parent 7b3470ca3f
commit eb5aa28612
12 changed files with 12 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
serials/acqui-search-result.pl
View File

@ -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;

3
serials/acqui-search.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;
use C4::Output;

3
serials/checkexpiration.pl
View File

@ -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

3
serials/reorder_members.pl
View File

@ -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 );

3
serials/routing-preview.pl
View File

@ -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;

3
serials/routing.pl
View File

@ -25,8 +25,7 @@ printed out
=cut
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Koha;
use C4::Auth;

3
serials/serials-collection.pl
View File

@ -19,8 +19,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;
use C4::Koha;

3
serials/serials-edit.pl
View File

@ -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;

3
serials/subscription-add.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 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);

3
serials/subscription-bib-search.pl
View File

@ -46,8 +46,7 @@ to multipage gestion.
=cut
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Koha;

3
serials/subscription-renew.pl
View File

@ -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;

3
serials/viewalerts.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 C4::Auth;
use C4::Context;