View | Details | Raw Unified | Return to bug 11322
Collapse All | Expand All

(-)a/opac/opac-suggestions.pl (-1 / +6 lines)
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
- 

Return to bug 11322