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

(-)a/members/boraccount.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 C4::Auth;
27
use C4::Auth;
29
use C4::Output;
28
use C4::Output;
(-)a/members/default_messageprefs.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
use C4::Service;
22
use C4::Service;
24
use C4::Form::MessagingPreferences;
23
use C4::Form::MessagingPreferences;
25
24
(-)a/members/deletemem.pl (-2 / +1 lines)
Lines 21-28 Link Here
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;
(-)a/members/files.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/members/mancredit.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 C4::Auth;
27
use C4::Auth;
29
use C4::Output;
28
use C4::Output;
(-)a/members/maninvoice.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 C4::Auth;
27
use C4::Auth;
29
use C4::Output;
28
use C4::Output;
(-)a/members/member-flags.pl (-2 / +1 lines)
Lines 4-11 Link Here
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;
(-)a/members/member-password.pl (-2 / +1 lines)
Lines 4-11 Link Here
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;
(-)a/members/memberentry.pl (-2 / +1 lines)
Lines 19-26 Link Here
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 );
(-)a/members/members-home.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;
21
20
22
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
23
use C4::Auth;
22
use C4::Auth;
(-)a/members/members-update-do.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;
21
20
22
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
23
use C4::Auth;
22
use C4::Auth;
(-)a/members/moremember.pl (-2 / +1 lines)
Lines 33-40 Link Here
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;
(-)a/members/notices.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; 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 );
(-)a/members/pay.pl (-2 / +1 lines)
Lines 26-33 Link Here
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;
(-)a/members/paycollect.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 URI::Escape;
21
use URI::Escape;
23
use C4::Context;
22
use C4::Context;
24
use C4::Auth;
23
use C4::Auth;
(-)a/members/printfeercpt.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 C4::Auth;
27
use C4::Auth;
29
use C4::Output;
28
use C4::Output;
(-)a/members/printinvoice.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
24
26
use C4::Auth;
25
use C4::Auth;
27
use C4::Output;
26
use C4::Output;
(-)a/members/printslip.pl (-2 / +1 lines)
Lines 32-39 Link Here
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/;
(-)a/members/readingrec.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
24
26
use CGI qw ( -utf8 );
25
use CGI qw ( -utf8 );
27
26
(-)a/members/routing-lists.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; 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/;
(-)a/members/setstatus.pl (-2 / +1 lines)
Lines 23-30 Link Here
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;
(-)a/members/update-child.pl (-3 / +1 lines)
Lines 26-33 Link Here
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