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 |
- |
|
|