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