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

(-)a/Koha/CGI.pm (+31 lines)
Line 0 Link Here
1
package Koha::CGI;
2
3
use Modern::Perl;
4
use base qw( CGI );
5
6
sub param {
7
    my ( $self, $params ) = @_;
8
    my $value = $self->SUPER::param($params);
9
    return unless $value;
10
    return $self->_escape($value);
11
}
12
13
sub param_raw {
14
    my ( $self, $params ) = @_;
15
    return $self->SUPER::param($params);
16
}
17
18
# Picked from Template::Stash::AutoEscaping::Escaped::HTML
19
sub _escape {
20
    my ( $self, $text ) = @_;
21
    for ($text) {
22
        s/&/&/g;
23
        s/</&lt;/g;
24
        s/>/&gt;/g;
25
        s/"/&quot;/g;
26
        s/'/&#39;/g;
27
    }
28
    return $text;
29
}
30
31
1;
(-)a/members/moremember.pl (-2 / +2 lines)
Lines 36-41 Link Here
36
use strict;
36
use strict;
37
#use warnings; FIXME - Bug 2505
37
#use warnings; FIXME - Bug 2505
38
use CGI qw ( -utf8 );
38
use CGI qw ( -utf8 );
39
use Koha::CGI;
39
use C4::Context;
40
use C4::Context;
40
use C4::Auth;
41
use C4::Auth;
41
use C4::Output;
42
use C4::Output;
Lines 75-81 BEGIN { Link Here
75
76
76
my $dbh = C4::Context->dbh;
77
my $dbh = C4::Context->dbh;
77
78
78
my $input = CGI->new;
79
my $input = Koha::CGI->new;
79
$debug or $debug = $input->param('debug') || 0;
80
$debug or $debug = $input->param('debug') || 0;
80
my $print = $input->param('print');
81
my $print = $input->param('print');
81
82
82
- 

Return to bug 19121