Browse Source

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>
18.05.x
Jenny Way 5 years ago
committed by Jonathan Druart
parent
commit
eb5aa28612
  1. 3
      serials/acqui-search-result.pl
  2. 3
      serials/acqui-search.pl
  3. 3
      serials/checkexpiration.pl
  4. 3
      serials/reorder_members.pl
  5. 3
      serials/routing-preview.pl
  6. 3
      serials/routing.pl
  7. 3
      serials/serials-collection.pl
  8. 3
      serials/serials-edit.pl
  9. 3
      serials/subscription-add.pl
  10. 3
      serials/subscription-bib-search.pl
  11. 3
      serials/subscription-renew.pl
  12. 3
      serials/viewalerts.pl

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

3
serials/acqui-search.pl

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

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

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

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

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

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

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

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

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

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

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

Loading…
Cancel
Save