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

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>
This commit is contained in:
Charlotte Cordwell 2018-01-18 01:57:32 +00:00 committed by Jonathan Druart
parent f477c078d8
commit f9b93e07fd
13 changed files with 14 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
circ/bookcount.pl
View File

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

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

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

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

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

3
circ/returns.pl
View File

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

@ -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
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 C4::Context;
use C4::Output;

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

3
circ/view_holdsqueue.pl
View File

@ -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
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::Context;
use C4::Output;

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