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

(-)a/opac/opac-suggestions.pl (-2 / +3 lines)
Lines 19-24 use strict; Link Here
19
use warnings;
19
use warnings;
20
20
21
use CGI qw ( -utf8 );
21
use CGI qw ( -utf8 );
22
use Encode qw( encode );
22
use C4::Auth;    # get_template_and_user
23
use C4::Auth;    # get_template_and_user
23
use C4::Members;
24
use C4::Members;
24
use C4::Branch;
25
use C4::Branch;
Lines 91-97 if ( $op eq "add_confirm" ) { Link Here
91
	else {
92
	else {
92
		my $scrubber = C4::Scrubber->new();
93
		my $scrubber = C4::Scrubber->new();
93
		foreach my $suggest (keys %$suggestion){
94
		foreach my $suggest (keys %$suggestion){
94
		    $suggestion->{$suggest} = $scrubber->scrub($suggestion->{$suggest});
95
            # Don't know why the encode is needed for Perl v5.10 here
96
            $suggestion->{$suggest} = Encode::encode("utf8", $scrubber->scrub($suggestion->{$suggest}) );
95
		}
97
		}
96
        $suggestion->{suggesteddate} = dt_from_string;
98
        $suggestion->{suggesteddate} = dt_from_string;
97
        $suggestion->{branchcode} = $input->param('branchcode') || C4::Context->userenv->{"branch"};
99
        $suggestion->{branchcode} = $input->param('branchcode') || C4::Context->userenv->{"branch"};
98
- 

Return to bug 11944