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

(-)a/opac/errors/400.pl (-3 / +1 lines)
Lines 16-24 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
18
19
use strict;
19
use Modern::Perl;
20
use warnings;
21
22
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
23
use C4::Auth;
21
use C4::Auth;
24
use C4::Output;
22
use C4::Output;
(-)a/opac/errors/401.pl (-3 / +1 lines)
Lines 16-24 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
18
19
use strict;
19
use Modern::Perl;
20
use warnings;
21
22
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
23
use C4::Auth;
21
use C4::Auth;
24
use C4::Output;
22
use C4::Output;
(-)a/opac/errors/402.pl (-3 / +1 lines)
Lines 16-24 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
18
19
use strict;
19
use Modern::Perl;
20
use warnings;
21
22
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
23
use C4::Auth;
21
use C4::Auth;
24
use C4::Output;
22
use C4::Output;
(-)a/opac/errors/403.pl (-3 / +1 lines)
Lines 16-24 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
18
19
use strict;
19
use Modern::Perl;
20
use warnings;
21
22
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
23
use C4::Auth;
21
use C4::Auth;
24
use C4::Output;
22
use C4::Output;
(-)a/opac/errors/404.pl (-3 / +1 lines)
Lines 16-24 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
18
19
use strict;
19
use Modern::Perl;
20
use warnings;
21
22
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
23
use C4::Auth;
21
use C4::Auth;
24
use C4::Output;
22
use C4::Output;
(-)a/opac/errors/500.pl (-3 / +1 lines)
Lines 16-24 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
18
19
use strict;
19
use Modern::Perl;
20
use warnings;
21
22
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
23
use C4::Auth;
21
use C4::Auth;
24
use C4::Output;
22
use C4::Output;
(-)a/opac/opac-account-pay-paypal-return.pl (-2 / +1 lines)
Lines 17-24 Link Here
17
# with Koha; if not, write to the Free Software Foundation, Inc.,
17
# with Koha; if not, write to the Free Software Foundation, Inc.,
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
18
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
19
20
use strict;
20
use Modern::Perl;
21
use warnings;
22
use utf8;
21
use utf8;
23
22
24
use CGI;
23
use CGI;
(-)a/opac/opac-alert-subscribe.pl (-3 / +1 lines)
Lines 18-26 Link Here
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
20
21
use strict;
21
use Modern::Perl;
22
use warnings;
23
24
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
25
use C4::Auth;
23
use C4::Auth;
26
use C4::Output;
24
use C4::Output;
(-)a/opac/opac-authorities-home.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 URI::Escape;
24
use URI::Escape;
(-)a/opac/opac-authoritiesdetail.pl (-2 / +1 lines)
Lines 36-43 parameters tables. Link Here
36
36
37
=cut
37
=cut
38
38
39
use strict;
39
use Modern::Perl;
40
use warnings;
41
40
42
use C4::AuthoritiesMarc;
41
use C4::AuthoritiesMarc;
43
use C4::Auth;
42
use C4::Auth;
(-)a/opac/opac-browser.pl (-2 / +1 lines)
Lines 24-31 TODO :: Description here Link Here
24
24
25
=cut
25
=cut
26
26
27
use strict;
27
use Modern::Perl;
28
use warnings;
29
28
30
use C4::Auth;
29
use C4::Auth;
31
use C4::Context;
30
use C4::Context;
(-)a/opac/opac-ics.pl (-2 / +1 lines)
Lines 19-26 Link Here
19
19
20
# This script builds an ICalendar file (rfc 2445) for use in programs such as Ical
20
# This script builds an ICalendar file (rfc 2445) for use in programs such as Ical
21
21
22
use strict;
22
use Modern::Perl;
23
use warnings;
24
23
25
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
26
use Data::ICal;
25
use Data::ICal;
(-)a/opac/opac-image.pl (-2 / +1 lines)
Lines 23-30 Link Here
23
#
23
#
24
#
24
#
25
25
26
use strict;
26
use Modern::Perl;
27
use warnings;
28
27
29
use CGI qw ( -utf8 );
28
use CGI qw ( -utf8 );
30
use C4::Context;
29
use C4::Context;
(-)a/opac/opac-imageviewer.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
21
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use C4::Auth;
23
use C4::Auth;
(-)a/opac/opac-messaging.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
21
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
23
(-)a/opac/opac-modrequest-suspend.pl (-2 / +1 lines)
Lines 15-22 Link Here
15
# You should have received a copy of the GNU General Public License
15
# You should have received a copy of the GNU General Public License
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use strict;
18
use Modern::Perl;
19
use warnings;
20
19
21
use CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
22
use C4::Output;
21
use C4::Output;
(-)a/opac/opac-modrequest.pl (-2 / +1 lines)
Lines 22-29 Link Here
22
# You should have received a copy of the GNU General Public License
22
# You should have received a copy of the GNU General Public License
23
# along with Koha; if not, see <http://www.gnu.org/licenses>.
23
# along with Koha; if not, see <http://www.gnu.org/licenses>.
24
24
25
use strict;
25
use Modern::Perl;
26
use warnings;
27
26
28
use CGI qw ( -utf8 );
27
use CGI qw ( -utf8 );
29
use C4::Output;
28
use C4::Output;
(-)a/opac/opac-mymessages.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
21
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
23
(-)a/opac/opac-overdrive-search.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
21
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
23
(-)a/opac/opac-passwd.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
24
(-)a/opac/opac-patron-image.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 C4::Members;
22
use C4::Members;
24
use CGI qw ( -utf8 );
23
use CGI qw ( -utf8 );
25
use CGI::Cookie;  # need to check cookies before having CGI parse the POST request
24
use CGI::Cookie;  # need to check cookies before having CGI parse the POST request
(-)a/opac/opac-privacy.pl (-1 / +1 lines)
Lines 16-22 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 CGI qw ( -utf8 );
20
use CGI qw ( -utf8 );
21
21
22
use C4::Auth;    # checkauth, getborrowernumber.
22
use C4::Auth;    # checkauth, getborrowernumber.
(-)a/opac/opac-ratings-ajax.pl (-2 / +1 lines)
Lines 23-30 A script that takes an ajax json query, and then inserts or modifies a star-rati Link Here
23
23
24
=cut
24
=cut
25
25
26
use strict;
26
use Modern::Perl;
27
use warnings;
28
27
29
use CGI qw ( -utf8 );
28
use CGI qw ( -utf8 );
30
use CGI::Cookie;  # need to check cookies before having CGI parse the POST request
29
use CGI::Cookie;  # need to check cookies before having CGI parse the POST request
(-)a/opac/opac-ratings.pl (-2 / +1 lines)
Lines 25-32 note: there is currently no 'delete rating' functionality in this script Link Here
25
25
26
=cut
26
=cut
27
27
28
use strict;
28
use Modern::Perl;
29
use warnings;
30
use CGI qw ( -utf8 );
29
use CGI qw ( -utf8 );
31
30
32
use C4::Auth;
31
use C4::Auth;
(-)a/opac/opac-readingrecord.pl (-2 / +1 lines)
Lines 16-23 Link Here
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
18
19
use strict;
19
use Modern::Perl;
20
use warnings;
21
20
22
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
23
22
(-)a/opac/opac-renew.pl (-2 / +1 lines)
Lines 21-28 Link Here
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
23
24
use strict;
24
use Modern::Perl;
25
use warnings;
26
25
27
use CGI qw ( -utf8 );
26
use CGI qw ( -utf8 );
28
use C4::Circulation;
27
use C4::Circulation;
(-)a/opac/opac-sendshelf.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
21
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
use Encode qw( encode );
23
use Encode qw( encode );
(-)a/opac/opac-serial-issues.pl (-2 / +1 lines)
Lines 18-25 Link Here
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
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 C4::Auth;
24
use C4::Auth;
(-)a/opac/opac-showreviews.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 C4::Auth;
24
use C4::Auth;
(-)a/opac/opac-suggestions.pl (-2 / +2 lines)
Lines 15-22 Link Here
15
# You should have received a copy of the GNU General Public License
15
# You should have received a copy of the GNU General Public License
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
16
# along with Koha; if not, see <http://www.gnu.org/licenses>.
17
17
18
use strict;
18
use Modern::Perl;
19
use warnings;
19
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use Encode qw( encode );
22
use Encode qw( encode );
(-)a/opac/opac-tags_subject.pl (-2 / +1 lines)
Lines 24-31 TODO :: Description here Link Here
24
24
25
=cut
25
=cut
26
26
27
use strict;
27
use Modern::Perl;
28
use warnings;
29
28
30
use C4::Auth;
29
use C4::Auth;
31
use C4::Context;
30
use C4::Context;
(-)a/opac/opac-topissues.pl (-2 / +1 lines)
Lines 19-26 Link Here
19
# You should have received a copy of the GNU General Public License
19
# You should have received a copy of the GNU General Public License
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
20
# along with Koha; if not, see <http://www.gnu.org/licenses>.
21
21
22
use strict;
22
use Modern::Perl;
23
use warnings;
24
23
25
use CGI qw ( -utf8 );
24
use CGI qw ( -utf8 );
26
use C4::Auth;
25
use C4::Auth;
(-)a/opac/opac-user.pl (-2 / +1 lines)
Lines 17-24 Link Here
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
19
20
use strict;
20
use Modern::Perl;
21
#use warnings; FIXME - Bug 2505
22
21
23
use CGI qw ( -utf8 );
22
use CGI qw ( -utf8 );
24
23
(-)a/opac/sco/help.pl (-2 / +1 lines)
Lines 21-28 Link Here
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
23
24
use strict;
24
use Modern::Perl;
25
use warnings;
26
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
27
26
28
use C4::Auth   qw(get_template_and_user);
27
use C4::Auth   qw(get_template_and_user);
(-)a/opac/sco/printslip.pl (-2 / +1 lines)
Lines 26-33 It is called from sco-main.pl Link Here
26
=cut
26
=cut
27
27
28
28
29
use strict;
29
use Modern::Perl;
30
use warnings;
31
use CGI qw ( -utf8 );
30
use CGI qw ( -utf8 );
32
use C4::Context;
31
use C4::Context;
33
use C4::Auth qw/:DEFAULT get_session/;
32
use C4::Auth qw/:DEFAULT get_session/;
(-)a/opac/sco/sco-patron-image.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 C4::Service;
21
use C4::Service;
23
use C4::Members;
22
use C4::Members;
24
use Koha::Patron::Images;
23
use Koha::Patron::Images;
(-)a/opac/svc/overdrive_proxy (-2 / +1 lines)
Lines 32-39 JS side from having to deal with cross-origin/authentication issues. Link Here
32
32
33
=cut
33
=cut
34
34
35
use strict;
35
use Modern::Perl;
36
use warnings;
37
36
38
use CGI qw(-oldstyle_urls -utf8);
37
use CGI qw(-oldstyle_urls -utf8);
39
use JSON;
38
use JSON;
(-)a/opac/svc/suggestion (-2 / +1 lines)
Lines 51-58 Number of suggestions to display. Defaults to 4 in stub mode, 20 otherwise. Link Here
51
51
52
=cut
52
=cut
53
53
54
use strict;
54
use Modern::Perl;
55
use warnings;
56
55
57
use C4::Auth;
56
use C4::Auth;
58
use C4::Context;
57
use C4::Context;
(-)a/opac/unapi (-3 / +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
21
23
=head1 NAME
22
=head1 NAME
24
23
25
- 

Return to bug 19991