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 88-94 if ( $op eq "add_confirm" ) { Link Here
88
	else {
89
	else {
89
		my $scrubber = C4::Scrubber->new();
90
		my $scrubber = C4::Scrubber->new();
90
		foreach my $suggest (keys %$suggestion){
91
		foreach my $suggest (keys %$suggestion){
91
		    $suggestion->{$suggest} = $scrubber->scrub($suggestion->{$suggest});
92
            # Don't know why the encode is needed for Perl v5.10 here
93
            $suggestion->{$suggest} = Encode::encode("utf8", $scrubber->scrub($suggestion->{$suggest}) );
92
		}
94
		}
93
		$$suggestion{'suggesteddate'}=C4::Dates->today;
95
		$$suggestion{'suggesteddate'}=C4::Dates->today;
94
		$$suggestion{'branchcode'}= $input->param('branch') || C4::Context->userenv->{"branch"};
96
		$$suggestion{'branchcode'}= $input->param('branch') || C4::Context->userenv->{"branch"};
95
- 

Return to bug 11944