Attachment #70887 for bug #20009

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

Lines 22-29 Link Here

(-)a/members/boraccount.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 C4::Auth;	27	use C4::Auth;
29	use C4::Output;	28	use C4::Output;

Lines 18-25 Link Here

(-)a/members/default_messageprefs.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	use C4::Service;	22	use C4::Service;
24	use C4::Form::MessagingPreferences;	23	use C4::Form::MessagingPreferences;
25		24

Lines 21-28 Link Here

(-)a/members/deletemem.pl (-2 / +1 lines)
21	# You should have received a copy of the GNU General Public License	21	# You should have received a copy of the GNU General Public License
22	# along with Koha; if not, see <http://www.gnu.org/licenses>.	22	# along with Koha; if not, see <http://www.gnu.org/licenses>.
23		23
24	use strict;	24	use Modern::Perl;
25	#use warnings; FIXME - Bug 2505
26		25
27	use CGI qw ( -utf8 );	26	use CGI qw ( -utf8 );
28	use C4::Context;	27	use C4::Context;

Lines 17-24 Link Here

(-)a/members/files.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 22-29 Link Here

(-)a/members/mancredit.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 C4::Auth;	27	use C4::Auth;
29	use C4::Output;	28	use C4::Output;

Lines 22-29 Link Here

(-)a/members/maninvoice.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 C4::Auth;	27	use C4::Auth;
29	use C4::Output;	28	use C4::Output;

Lines 4-11 Link Here

(-)a/members/member-flags.pl (-2 / +1 lines)
4	# Written by Steve Tonnesen	4	# Written by Steve Tonnesen
5	# July 26, 2002 (my birthday!)	5	# July 26, 2002 (my birthday!)
6		6
7	use strict;	7	use Modern::Perl;
8	use warnings;
9		8
10	use CGI qw ( -utf8 );	9	use CGI qw ( -utf8 );
11	use C4::Output;	10	use C4::Output;

Lines 4-11 Link Here

(-)a/members/member-password.pl (-2 / +1 lines)
4	#by chris@katipo.co.nz	4	#by chris@katipo.co.nz
5	#converted to using templates 3/16/03 by mwhansen@hmc.edu	5	#converted to using templates 3/16/03 by mwhansen@hmc.edu
6		6
7	use strict;	7	use Modern::Perl;
8	use warnings;
9		8
10	use C4::Auth;	9	use C4::Auth;
11	use Koha::AuthUtils;	10	use Koha::AuthUtils;

Lines 19-26 Link Here

(-)a/members/memberentry.pl (-2 / +1 lines)
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	# pragma	21	# pragma
22	use strict;	22	use Modern::Perl;
23	use warnings;
24		23
25	# external modules	24	# external modules
26	use CGI qw ( -utf8 );	25	use CGI qw ( -utf8 );

Lines 16-23 Link Here

(-)a/members/members-home.pl (-2 / +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 warnings;
21		20
22	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
23	use C4::Auth;	22	use C4::Auth;

Lines 16-23 Link Here

(-)a/members/members-update-do.pl (-2 / +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 warnings;
21		20
22	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
23	use C4::Auth;	22	use C4::Auth;

Lines 33-40 Link Here

(-)a/members/moremember.pl (-2 / +1 lines)
33		33
34	=cut	34	=cut
35		35
36	use strict;	36	use Modern::Perl;
37	#use warnings; FIXME - Bug 2505
38	use CGI qw ( -utf8 );	37	use CGI qw ( -utf8 );
39	use HTML::Entities;	38	use HTML::Entities;
40	use C4::Context;	39	use C4::Context;

Lines 19-26 Link Here

(-)a/members/notices.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; FIXME - Bug 2505
24	use C4::Auth;	23	use C4::Auth;
25	use C4::Output;	24	use C4::Output;
26	use CGI qw ( -utf8 );	25	use CGI qw ( -utf8 );

Lines 26-33 Link Here

(-)a/members/pay.pl (-2 / +1 lines)
26		26
27	=cut	27	=cut
28		28
29	use strict;	29	use Modern::Perl;
30	use warnings;
31		30
32	use URI::Escape;	31	use URI::Escape;
33	use C4::Context;	32	use C4::Context;

Lines 17-24 Link Here

(-)a/members/paycollect.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 URI::Escape;	21	use URI::Escape;
23	use C4::Context;	22	use C4::Context;
24	use C4::Auth;	23	use C4::Auth;

Lines 22-29 Link Here

(-)a/members/printfeercpt.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 C4::Auth;	27	use C4::Auth;
29	use C4::Output;	28	use C4::Output;

Lines 20-27 Link Here

(-)a/members/printinvoice.pl (-2 / +1 lines)
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		24
26	use C4::Auth;	25	use C4::Auth;
27	use C4::Output;	26	use C4::Output;

Lines 32-39 Link Here

(-)a/members/printslip.pl (-2 / +1 lines)
32		32
33	=cut	33	=cut
34		34
35	use strict;	35	use Modern::Perl;
36	#use warnings; FIXME - Bug 2505
37	use CGI qw ( -utf8 );	36	use CGI qw ( -utf8 );
38	use C4::Context;	37	use C4::Context;
39	use C4::Auth qw/:DEFAULT get_session/;	38	use C4::Auth qw/:DEFAULT get_session/;

Lines 20-27 Link Here

(-)a/members/readingrec.pl (-2 / +1 lines)
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		24
26	use CGI qw ( -utf8 );	25	use CGI qw ( -utf8 );
27		26

Lines 17-24 Link Here

(-)a/members/routing-lists.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; FIXME - Bug 2505
22	use CGI qw ( -utf8 );	21	use CGI qw ( -utf8 );
23	use C4::Output;	22	use C4::Output;
24	use C4::Auth qw/:DEFAULT/;	23	use C4::Auth qw/:DEFAULT/;

Lines 23-30 Link Here

(-)a/members/setstatus.pl (-2 / +1 lines)
23	# You should have received a copy of the GNU General Public License	23	# You should have received a copy of the GNU General Public License
24	# along with Koha; if not, see <http://www.gnu.org/licenses>.	24	# along with Koha; if not, see <http://www.gnu.org/licenses>.
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 26-33 Link Here

(-)a/members/update-child.pl (-3 / +1 lines)
26		26
27	=cut	27	=cut
28		28
29	use strict;	29	use Modern::Perl;
30	#use warnings; FIXME - Bug 2505
31	use CGI qw ( -utf8 );	30	use CGI qw ( -utf8 );
32	use C4::Context;	31	use C4::Context;
33	use C4::Auth;	32	use C4::Auth;
34	-

Return to bug 20009