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

(-)a/C4/Search.pm (-9 / +9 lines)
Lines 1312-1328 sub buildQuery { Link Here
1312
        if ( @limits ) {
1312
        if ( @limits ) {
1313
            $q .= ' and '.join(' and ', @limits);
1313
            $q .= ' and '.join(' and ', @limits);
1314
        }
1314
        }
1315
        return ( undef, $q, $q, "q=ccl=".uri_escape($q), $q, '', '', '', '', 'ccl' );
1315
        return ( undef, $q, $q, "q=ccl=".uri_escape_utf8($q), $q, '', '', '', '', 'ccl' );
1316
    }
1316
    }
1317
    if ( $query =~ /^cql=/ ) {
1317
    if ( $query =~ /^cql=/ ) {
1318
        return ( undef, $', $', "q=cql=".uri_escape($'), $', '', '', '', '', 'cql' );
1318
        return ( undef, $', $', "q=cql=".uri_escape_utf8($'), $', '', '', '', '', 'cql' );
1319
    }
1319
    }
1320
    if ( $query =~ /^pqf=/ ) {
1320
    if ( $query =~ /^pqf=/ ) {
1321
        if ($query_desc) {
1321
        if ($query_desc) {
1322
            $query_cgi = "q=".uri_escape($query_desc);
1322
            $query_cgi = "q=".uri_escape_utf8($query_desc);
1323
        } else {
1323
        } else {
1324
            $query_desc = $';
1324
            $query_desc = $';
1325
            $query_cgi = "q=pqf=".uri_escape($');
1325
            $query_cgi = "q=pqf=".uri_escape_utf8($');
1326
        }
1326
        }
1327
        return ( undef, $', $', $query_cgi, $query_desc, '', '', '', '', 'pqf' );
1327
        return ( undef, $', $', $query_cgi, $query_desc, '', '', '', '', 'pqf' );
1328
    }
1328
    }
Lines 1533-1539 sub buildQuery { Link Here
1533
            $group_OR_limits{$k} .= " or " if $group_OR_limits{$k};
1533
            $group_OR_limits{$k} .= " or " if $group_OR_limits{$k};
1534
            $limit_desc      .= " or " if $group_OR_limits{$k};
1534
            $limit_desc      .= " or " if $group_OR_limits{$k};
1535
            $group_OR_limits{$k} .= "$this_limit";
1535
            $group_OR_limits{$k} .= "$this_limit";
1536
            $limit_cgi       .= "&limit=" . uri_escape($this_limit);
1536
            $limit_cgi       .= "&limit=" . uri_escape_utf8($this_limit);
1537
            $limit_desc      .= " $this_limit";
1537
            $limit_desc      .= " $this_limit";
1538
        }
1538
        }
1539
1539
Lines 1541-1547 sub buildQuery { Link Here
1541
        else {
1541
        else {
1542
            $limit .= " and " if $limit || $query;
1542
            $limit .= " and " if $limit || $query;
1543
            $limit      .= "$this_limit";
1543
            $limit      .= "$this_limit";
1544
            $limit_cgi  .= "&limit=" . uri_escape($this_limit);
1544
            $limit_cgi  .= "&limit=" . uri_escape_utf8($this_limit);
1545
            if ($this_limit =~ /^branch:(.+)/) {
1545
            if ($this_limit =~ /^branch:(.+)/) {
1546
                my $branchcode = $1;
1546
                my $branchcode = $1;
1547
                my $branchname = GetBranchName($branchcode);
1547
                my $branchname = GetBranchName($branchcode);
Lines 1627-1635 sub _build_initial_query { Link Here
1627
    #e.g. " and kw,wrdl:test"
1627
    #e.g. " and kw,wrdl:test"
1628
    $params->{query} .= $operator . $operand;
1628
    $params->{query} .= $operator . $operand;
1629
1629
1630
    $params->{query_cgi} .= "&op=".uri_escape($operator) if $operator;
1630
    $params->{query_cgi} .= "&op=".uri_escape_utf8($operator) if $operator;
1631
    $params->{query_cgi} .= "&idx=".uri_escape($params->{index}) if $params->{index};
1631
    $params->{query_cgi} .= "&idx=".uri_escape_utf8($params->{index}) if $params->{index};
1632
    $params->{query_cgi} .= "&q=".uri_escape($params->{original_operand}) if $params->{original_operand};
1632
    $params->{query_cgi} .= "&q=".uri_escape_utf8($params->{original_operand}) if $params->{original_operand};
1633
1633
1634
    #e.g. " and kw,wrdl: test"
1634
    #e.g. " and kw,wrdl: test"
1635
    $params->{query_desc} .= $operator . $params->{index_plus} . " " . $params->{original_operand};
1635
    $params->{query_desc} .= $operator . $params->{index_plus} . " " . $params->{original_operand};
(-)a/C4/Search/History.pm (-1 / +1 lines)
Lines 152-158 sub set_to_session { Link Here
152
    my $session = C4::Auth::get_session($sessionID);
152
    my $session = C4::Auth::get_session($sessionID);
153
    return () unless $session;
153
    return () unless $session;
154
    $session->param( 'search_history',
154
    $session->param( 'search_history',
155
        uri_escape( encode_json($search_history) ) );
155
        uri_escape_utf8( encode_json($search_history) ) );
156
}
156
}
157
157
158
1;
158
1;
(-)a/authorities/authorities-home.pl (-1 / +1 lines)
Lines 146-152 if ( $op eq "do_search" ) { Link Here
146
    # next/previous would not work anymore
146
    # next/previous would not work anymore
147
147
148
    # construction of the url of each page
148
    # construction of the url of each page
149
    my $value_url = uri_escape($value);
149
    my $value_url = uri_escape_utf8($value);
150
    my $base_url = "authorities-home.pl?"
150
    my $base_url = "authorities-home.pl?"
151
      ."marclist=$marclist"
151
      ."marclist=$marclist"
152
      ."&and_or=$and_or"
152
      ."&and_or=$and_or"
(-)a/cataloguing/addbiblio.pl (-1 / +1 lines)
Lines 874-880 if ( $op eq "addbiblio" ) { Link Here
874
            .'&frameworkcode='.$frameworkcode
874
            .'&frameworkcode='.$frameworkcode
875
            .'&circborrowernumber='.$fa_circborrowernumber
875
            .'&circborrowernumber='.$fa_circborrowernumber
876
            .'&branch='.$fa_branch
876
            .'&branch='.$fa_branch
877
            .'&barcode='.uri_escape($fa_barcode)
877
            .'&barcode='.uri_escape_utf8($fa_barcode)
878
            .'&stickyduedate='.$fa_stickyduedate
878
            .'&stickyduedate='.$fa_stickyduedate
879
            .'&duedatespec='.$fa_duedatespec
879
            .'&duedatespec='.$fa_duedatespec
880
		);
880
		);
(-)a/cataloguing/additem.pl (-1 / +1 lines)
Lines 514-520 if ($op eq "additem") { Link Here
514
        print $input->redirect(
514
        print $input->redirect(
515
           '/cgi-bin/koha/circ/circulation.pl?'
515
           '/cgi-bin/koha/circ/circulation.pl?'
516
           .'borrowernumber='.$fa_circborrowernumber
516
           .'borrowernumber='.$fa_circborrowernumber
517
           .'&barcode='.uri_escape($fa_barcode)
517
           .'&barcode='.uri_escape_utf8($fa_barcode)
518
           .'&duedatespec='.$fa_duedatespec
518
           .'&duedatespec='.$fa_duedatespec
519
           .'&stickyduedate=1'
519
           .'&stickyduedate=1'
520
        );
520
        );
(-)a/members/pay.pl (-1 / +1 lines)
Lines 173-179 sub redirect_to_paycollect { Link Here
173
    $redirect .= get_for_redirect( 'notify_id',    "notify_id$line_no",    0 );
173
    $redirect .= get_for_redirect( 'notify_id',    "notify_id$line_no",    0 );
174
    $redirect .= get_for_redirect( 'notify_level', "notify_level$line_no", 0 );
174
    $redirect .= get_for_redirect( 'notify_level', "notify_level$line_no", 0 );
175
    $redirect .= get_for_redirect( 'accountlines_id', "accountlines_id$line_no", 0 );
175
    $redirect .= get_for_redirect( 'accountlines_id', "accountlines_id$line_no", 0 );
176
    $redirect .= q{&} . 'payment_note' . q{=} . uri_escape( $input->param("payment_note_$line_no") );
176
    $redirect .= q{&} . 'payment_note' . q{=} . uri_escape_utf8( $input->param("payment_note_$line_no") );
177
    $redirect .= '&remote_user=';
177
    $redirect .= '&remote_user=';
178
    $redirect .= $user;
178
    $redirect .= $user;
179
    return print $input->redirect($redirect);
179
    return print $input->redirect($redirect);
(-)a/reports/guided_reports.pl (-1 / +1 lines)
Lines 745-751 elsif ($phase eq 'Run this report'){ Link Here
745
            my $totpages = int($total/$limit) + (($total % $limit) > 0 ? 1 : 0);
745
            my $totpages = int($total/$limit) + (($total % $limit) > 0 ? 1 : 0);
746
            my $url = "/cgi-bin/koha/reports/guided_reports.pl?reports=$report_id&phase=Run%20this%20report&limit=$limit";
746
            my $url = "/cgi-bin/koha/reports/guided_reports.pl?reports=$report_id&phase=Run%20this%20report&limit=$limit";
747
            if (@sql_params) {
747
            if (@sql_params) {
748
                $url = join('&sql_params=', $url, map { URI::Escape::uri_escape($_) } @sql_params);
748
                $url = join('&sql_params=', $url, map { URI::Escape::uri_escape_utf8($_) } @sql_params);
749
            }
749
            }
750
            $template->param(
750
            $template->param(
751
                'results' => \@rows,
751
                'results' => \@rows,
(-)a/reserve/renewscript.pl (-1 / +1 lines)
Lines 127-133 foreach my $barcode (@barcodes) { Link Here
127
# redirection to the referrer page
127
# redirection to the referrer page
128
#
128
#
129
if ( $input->param('destination') eq "circ" ) {
129
if ( $input->param('destination') eq "circ" ) {
130
    $cardnumber = uri_escape($cardnumber);
130
    $cardnumber = uri_escape_utf8($cardnumber);
131
    print $input->redirect( '/cgi-bin/koha/circ/circulation.pl?findborrower='
131
    print $input->redirect( '/cgi-bin/koha/circ/circulation.pl?findborrower='
132
          . $cardnumber
132
          . $cardnumber
133
          . $failedrenews
133
          . $failedrenews
(-)a/serials/routing-preview.pl (-1 / +1 lines)
Lines 133-139 $routingnotes =~ s/\n/\<br \/\>/g; Link Here
133
$template->param(
133
$template->param(
134
    title => $subs->{'bibliotitle'},
134
    title => $subs->{'bibliotitle'},
135
    issue => $issue,
135
    issue => $issue,
136
    issue_escaped => URI::Escape::uri_escape($issue),
136
    issue_escaped => URI::Escape::uri_escape_utf8($issue),
137
    subscriptionid => $subscriptionid,
137
    subscriptionid => $subscriptionid,
138
    memberloop => $memberloop,
138
    memberloop => $memberloop,
139
    routingnotes => $routingnotes,
139
    routingnotes => $routingnotes,
(-)a/serials/routing.pl (-1 / +1 lines)
Lines 62-68 if($op eq 'add'){ Link Here
62
if($op eq 'save'){
62
if($op eq 'save'){
63
    my $sth = $dbh->prepare('UPDATE serial SET routingnotes = ? WHERE subscriptionid = ?');
63
    my $sth = $dbh->prepare('UPDATE serial SET routingnotes = ? WHERE subscriptionid = ?');
64
    $sth->execute($notes,$subscriptionid);
64
    $sth->execute($notes,$subscriptionid);
65
    my $urldate = URI::Escape::uri_escape($date_selected);
65
    my $urldate = URI::Escape::uri_escape_utf8($date_selected);
66
    print $query->redirect("routing-preview.pl?subscriptionid=$subscriptionid&issue=$urldate");
66
    print $query->redirect("routing-preview.pl?subscriptionid=$subscriptionid&issue=$urldate");
67
}
67
}
68
68
(-)a/serials/subscription-frequency.pl (-1 / +1 lines)
Lines 33-36 if ($auth_status ne "ok") { Link Here
33
my $frequencyrecord=GetSubscriptionFrequency($frqid);
33
my $frequencyrecord=GetSubscriptionFrequency($frqid);
34
binmode STDOUT, ":encoding(UTF-8)";
34
binmode STDOUT, ":encoding(UTF-8)";
35
print $input->header(-type => 'text/plain', -charset => 'UTF-8');
35
print $input->header(-type => 'text/plain', -charset => 'UTF-8');
36
print "{".join (",",map { "\"$_\":\"".uri_escape($frequencyrecord->{$_})."\"" }sort keys %$frequencyrecord)."}";
36
print "{".join (",",map { "\"$_\":\"".uri_escape_utf8($frequencyrecord->{$_})."\"" }sort keys %$frequencyrecord)."}";
(-)a/serials/subscription-numberpattern.pl (-2 / +1 lines)
Lines 36-39 my $numpatternid=$input->param("numberpattern_id"); Link Here
36
my $numberpatternrecord=GetSubscriptionNumberpattern($numpatternid);
36
my $numberpatternrecord=GetSubscriptionNumberpattern($numpatternid);
37
binmode STDOUT, ":encoding(UTF-8)";
37
binmode STDOUT, ":encoding(UTF-8)";
38
print $input->header(-type => 'text/plain', -charset => 'UTF-8');
38
print $input->header(-type => 'text/plain', -charset => 'UTF-8');
39
print "{",join (",",map {"\"$_\":\"".(uri_escape($numberpatternrecord->{$_}) // '')."\"" }sort keys %$numberpatternrecord),"}";
39
print "{",join (",",map {"\"$_\":\"".(uri_escape_utf8($numberpatternrecord->{$_}) // '')."\"" }sort keys %$numberpatternrecord),"}";
40
- 

Return to bug 11944