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