Attachment #77545 for bug #19991

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

Lines 16-24 Link Here

(-)a/opac/errors/400.pl (-3 / +1 lines)
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;

Lines 16-24 Link Here

(-)a/opac/errors/401.pl (-3 / +1 lines)
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;

Lines 16-24 Link Here

(-)a/opac/errors/402.pl (-3 / +1 lines)
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;

Lines 16-24 Link Here

(-)a/opac/errors/403.pl (-3 / +1 lines)
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;

Lines 16-24 Link Here

(-)a/opac/errors/404.pl (-3 / +1 lines)
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;

Lines 16-24 Link Here

(-)a/opac/errors/500.pl (-3 / +1 lines)
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;

Lines 17-24 Link Here

(-)a/opac/opac-account-pay-paypal-return.pl (-2 / +1 lines)
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;

Lines 18-26 Link Here

(-)a/opac/opac-alert-subscribe.pl (-3 / +1 lines)
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;

Lines 18-25 Link Here

(-)a/opac/opac-authorities-home.pl (-2 / +1 lines)
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;

Lines 36-43 parameters tables. Link Here

(-)a/opac/opac-authoritiesdetail.pl (-2 / +1 lines)
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;

Lines 24-31 TODO :: Description here Link Here

(-)a/opac/opac-browser.pl (-2 / +1 lines)
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;

Lines 19-26 Link Here

(-)a/opac/opac-ics.pl (-2 / +1 lines)
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;

Lines 23-30 Link Here

(-)a/opac/opac-image.pl (-2 / +1 lines)
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;

Lines 17-24 Link Here

(-)a/opac/opac-imageviewer.pl (-2 / +1 lines)
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;

Lines 17-24 Link Here

(-)a/opac/opac-messaging.pl (-2 / +1 lines)
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

Lines 15-22 Link Here

(-)a/opac/opac-modrequest-suspend.pl (-2 / +1 lines)
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;

Lines 22-29 Link Here

(-)a/opac/opac-modrequest.pl (-2 / +1 lines)
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;

Lines 17-24 Link Here

(-)a/opac/opac-mymessages.pl (-2 / +1 lines)
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

Lines 17-24 Link Here

(-)a/opac/opac-overdrive-search.pl (-2 / +1 lines)
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

Lines 18-25 Link Here

(-)a/opac/opac-passwd.pl (-2 / +1 lines)
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

Lines 18-25 Link Here

(-)a/opac/opac-patron-image.pl (-2 / +1 lines)
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

Lines 16-22 Link Here

(-)a/opac/opac-privacy.pl (-1 / +1 lines)
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.

Lines 23-30 A script that takes an ajax json query, and then inserts or modifies a star-rati Link Here

(-)a/opac/opac-ratings-ajax.pl (-2 / +1 lines)
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

Lines 25-32 note: there is currently no 'delete rating' functionality in this script Link Here

(-)a/opac/opac-ratings.pl (-2 / +1 lines)
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;

Lines 16-23 Link Here

(-)a/opac/opac-readingrecord.pl (-2 / +1 lines)
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

Lines 21-28 Link Here

(-)a/opac/opac-renew.pl (-2 / +1 lines)
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;

Lines 17-24 Link Here

(-)a/opac/opac-sendshelf.pl (-2 / +1 lines)
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 );

Lines 18-25 Link Here

(-)a/opac/opac-serial-issues.pl (-2 / +1 lines)
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;

Lines 18-25 Link Here

(-)a/opac/opac-showreviews.pl (-2 / +1 lines)
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;

Lines 15-22 Link Here

(-)a/opac/opac-suggestions.pl (-2 / +2 lines)
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 );

Lines 24-31 TODO :: Description here Link Here

(-)a/opac/opac-tags_subject.pl (-2 / +1 lines)
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;

Lines 19-26 Link Here

(-)a/opac/opac-topissues.pl (-2 / +1 lines)
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;

Lines 17-24 Link Here

(-)a/opac/opac-user.pl (-2 / +1 lines)
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

Lines 21-28 Link Here

(-)a/opac/sco/help.pl (-2 / +1 lines)
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);

Lines 26-33 It is called from sco-main.pl Link Here

(-)a/opac/sco/printslip.pl (-2 / +1 lines)
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/;

Lines 17-24 Link Here

(-)a/opac/sco/sco-patron-image.pl (-2 / +1 lines)
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;

Lines 32-39 JS side from having to deal with cross-origin/authentication issues. Link Here

(-)a/opac/svc/overdrive_proxy (-2 / +1 lines)
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;

Lines 51-58 Number of suggestions to display. Defaults to 4 in stub mode, 20 otherwise. Link Here

(-)a/opac/svc/suggestion (-2 / +1 lines)
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;

Lines 17-24 Link Here

(-)a/opac/unapi (-3 / +1 lines)
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