View | Details | Raw Unified | Return to bug 19997
Collapse All | Expand All

(-)a/circ/bookcount.pl (-2 / +1 lines)
Lines 20-27 Link Here
20
# You should have received a copy of the GNU General Public License
20
# You should have received a copy of the GNU General Public License
21
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
# along with Koha; if not, see <http://www.gnu.org/licenses>.
22
22
23
use strict;
23
use Modern::Perl;
24
#use warnings; FIXME - Bug 2505
25
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
26
use C4::Debug;
25
use C4::Debug;
27
use C4::Context;
26
use C4::Context;
(-)a/circ/branchoverdues.pl (-2 / +1 lines)
Lines 16-23 Link Here
16
# You should have received a copy of the GNU General Public License
16
# You should have received a copy of the GNU General Public License
17
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
18
19
use strict;
19
use Modern::Perl;
20
#use warnings; FIXME - Bug 2505
21
use C4::Context;
20
use C4::Context;
22
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
23
use C4::Output;
22
use C4::Output;
(-)a/circ/branchtransfers.pl (-2 / +1 lines)
Lines 20-27 Link Here
20
# You should have received a copy of the GNU General Public License
20
# You should have received a copy of the GNU General Public License
21
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
# along with Koha; if not, see <http://www.gnu.org/licenses>.
22
22
23
use strict;
23
use Modern::Perl;
24
use warnings;
25
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
26
use C4::Circulation;
25
use C4::Circulation;
27
use C4::Output;
26
use C4::Output;
(-)a/circ/circulation.pl (-2 / +1 lines)
Lines 24-31 Link Here
24
24
25
# FIXME There are too many calls to Koha::Patrons->find in this script
25
# FIXME There are too many calls to Koha::Patrons->find in this script
26
26
27
use strict;
27
use Modern::Perl;
28
use warnings;
29
use CGI qw ( -utf8 );
28
use CGI qw ( -utf8 );
30
use DateTime;
29
use DateTime;
31
use DateTime::Duration;
30
use DateTime::Duration;
(-)a/circ/hold-transfer-slip.pl (-2 / +1 lines)
Lines 18-25 Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use strict;
21
use Modern::Perl;
22
#use warnings; FIXME - Bug 2505
23
use C4::Context;
22
use C4::Context;
24
use C4::Output;
23
use C4::Output;
25
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
(-)a/circ/reserveratios.pl (-2 / +1 lines)
Lines 18-25 Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use strict;
21
use Modern::Perl;
22
use warnings;
23
22
24
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
25
use Date::Calc qw/Today Add_Delta_YM/;
24
use Date::Calc qw/Today Add_Delta_YM/;
(-)a/circ/returns.pl (-2 / +1 lines)
Lines 27-34 script to execute returns of books Link Here
27
27
28
=cut
28
=cut
29
29
30
use strict;
30
use Modern::Perl;
31
use warnings;
32
31
33
# FIXME There are weird things going on with $patron and $borrowernumber in this script
32
# FIXME There are weird things going on with $patron and $borrowernumber in this script
34
33
(-)a/circ/selectbranchprinter.pl (-2 / +1 lines)
Lines 17-24 Link Here
17
# You should have received a copy of the GNU General Public License
17
# You should have received a copy of the GNU General Public License
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
18
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
23
22
24
use C4::Context;
23
use C4::Context;
(-)a/circ/transfer-slip.pl (-2 / +1 lines)
Lines 18-25 Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use strict;
21
use Modern::Perl;
22
use warnings;
23
22
24
use C4::Context;
23
use C4::Context;
25
use C4::Output;
24
use C4::Output;
(-)a/circ/transferstoreceive.pl (-2 / +1 lines)
Lines 18-25 Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use strict;
21
use Modern::Perl;
22
use warnings;
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use C4::Context;
23
use C4::Context;
25
use C4::Output;
24
use C4::Output;
(-)a/circ/view_holdsqueue.pl (-2 / +1 lines)
Lines 22-29 This script displays items in the tmp_holdsqueue table Link Here
22
22
23
=cut
23
=cut
24
24
25
use strict;
25
use Modern::Perl;
26
use warnings;
27
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
28
use C4::Auth;
27
use C4::Auth;
29
use C4::Output;
28
use C4::Output;
(-)a/circ/waitingreserves.pl (-2 / +1 lines)
Lines 18-25 Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use strict;
21
use Modern::Perl;
22
use warnings;
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use C4::Context;
23
use C4::Context;
25
use C4::Output;
24
use C4::Output;
(-)a/circ/ypattrodue-attr-search-authvalue.pl (-4 / +2 lines)
Lines 18-25 Link Here
18
# You should have received a copy of the GNU General Public License
18
# You should have received a copy of the GNU General Public License
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
19
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
20
21
use strict;
21
use Modern::Perl;
22
use warnings;
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use C4::Context;
23
use C4::Context;
25
use C4::Auth qw/check_cookie_auth/;
24
use C4::Auth qw/check_cookie_auth/;
Lines 56-59 while ( my $rec = $sth->fetchrow_hashref ) { Link Here
56
    "}";
55
    "}";
57
    $i++;
56
    $i++;
58
}
57
}
59
print "]";
58
print "]";
60
- 

Return to bug 19997