Browse Source

Bug 19997: use Modern::Perl in Circulation perl scripts

Test Case:
Check the following files have been updated from
use strict;
use warnings;
to
use Modern::Perl;

bookcount.pl
branchoverdues.pl
branchtransfers.pl
circulation.pl
hold-transfer-slip.pl
reserveratios.pl
returns.pl
selectbranchprinter.pl
transfer-slip.pl
transferstoreceive.pl
view_holdsqueue.pl
waitingreserves.pl
ypattrodue-attr-search-authvalue.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
Charlotte Cordwell 5 years ago
committed by Jonathan Druart
parent
commit
f9b93e07fd
  1. 3
      circ/bookcount.pl
  2. 3
      circ/branchoverdues.pl
  3. 3
      circ/branchtransfers.pl
  4. 3
      circ/circulation.pl
  5. 3
      circ/hold-transfer-slip.pl
  6. 3
      circ/reserveratios.pl
  7. 3
      circ/returns.pl
  8. 3
      circ/selectbranchprinter.pl
  9. 3
      circ/transfer-slip.pl
  10. 3
      circ/transferstoreceive.pl
  11. 3
      circ/view_holdsqueue.pl
  12. 3
      circ/waitingreserves.pl
  13. 5
      circ/ypattrodue-attr-search-authvalue.pl

3
circ/bookcount.pl

@ -20,8 +20,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; FIXME - Bug 2505
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Debug;
use C4::Context;

3
circ/branchoverdues.pl

@ -16,8 +16,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; FIXME - Bug 2505
use Modern::Perl;
use C4::Context;
use CGI qw ( -utf8 );
use C4::Output;

3
circ/branchtransfers.pl

@ -20,8 +20,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::Circulation;
use C4::Output;

3
circ/circulation.pl

@ -24,8 +24,7 @@
# FIXME There are too many calls to Koha::Patrons->find in this script
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );
use DateTime;
use DateTime::Duration;

3
circ/hold-transfer-slip.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; FIXME - Bug 2505
use Modern::Perl;
use C4::Context;
use C4::Output;
use CGI qw ( -utf8 );

3
circ/reserveratios.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 Date::Calc qw/Today Add_Delta_YM/;

3
circ/returns.pl

@ -27,8 +27,7 @@ script to execute returns of books
=cut
use strict;
use warnings;
use Modern::Perl;
# FIXME There are weird things going on with $patron and $borrowernumber in this script

3
circ/selectbranchprinter.pl

@ -17,8 +17,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::Context;

3
circ/transfer-slip.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 C4::Context;
use C4::Output;

3
circ/transferstoreceive.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::Context;
use C4::Output;

3
circ/view_holdsqueue.pl

@ -22,8 +22,7 @@ This script displays items in the tmp_holdsqueue table
=cut
use strict;
use warnings;
use Modern::Perl;
use CGI qw ( -utf8 );
use C4::Auth;
use C4::Output;

3
circ/waitingreserves.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::Context;
use C4::Output;

5
circ/ypattrodue-attr-search-authvalue.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::Context;
use C4::Auth qw/check_cookie_auth/;
@ -56,4 +55,4 @@ while ( my $rec = $sth->fetchrow_hashref ) {
"}";
$i++;
}
print "]";
print "]";

Loading…
Cancel
Save