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