Lines 27-32
use C4::Output;
Link Here
|
27 |
use C4::Suggestions; |
27 |
use C4::Suggestions; |
28 |
use C4::Koha; |
28 |
use C4::Koha; |
29 |
use C4::Dates; |
29 |
use C4::Dates; |
|
|
30 |
use C4::Scrubber; |
30 |
|
31 |
|
31 |
my $input = new CGI; |
32 |
my $input = new CGI; |
32 |
my $allsuggestions = $input->param('showall'); |
33 |
my $allsuggestions = $input->param('showall'); |
Lines 77-84
if ( $op eq "add_confirm" ) {
Link Here
|
77 |
#some suggestion are answering the request Donot Add |
78 |
#some suggestion are answering the request Donot Add |
78 |
} |
79 |
} |
79 |
else { |
80 |
else { |
|
|
81 |
my $scrubber = C4::Scrubber->new(); |
82 |
foreach my $suggest (keys %$suggestion){ |
83 |
$suggestion->{$suggest} = $scrubber->scrub($suggestion->{$suggest}); |
84 |
} |
80 |
$$suggestion{'suggesteddate'}=C4::Dates->today; |
85 |
$$suggestion{'suggesteddate'}=C4::Dates->today; |
81 |
$$suggestion{'branchcode'}= $input->param('branch') || C4::Context->userenv->{"branch"}; |
86 |
$$suggestion{'branchcode'}= $input->param('branch') || C4::Context->userenv->{"branch"}; |
|
|
87 |
|
82 |
&NewSuggestion($suggestion); |
88 |
&NewSuggestion($suggestion); |
83 |
# empty fields, to avoid filter in "SearchSuggestion" |
89 |
# empty fields, to avoid filter in "SearchSuggestion" |
84 |
$$suggestion{$_}='' foreach qw<title author publishercode copyrightdate place collectiontitle isbn STATUS>; |
90 |
$$suggestion{$_}='' foreach qw<title author publishercode copyrightdate place collectiontitle isbn STATUS>; |
85 |
- |
|
|