else {
$$suggestion{suggestedby} ||= $borrowernumber unless ($allsuggestions);
}
-warn "bornum:",$borrowernumber;
+# warn "bornum:",$borrowernumber;
use YAML;
my $suggestions_loop =
&SearchSuggestion( $suggestion);
#some suggestion are answering the request Donot Add
}
else {
- $$suggestion{'suggestioncreatedon'}=C4::Dates->today;
+ $$suggestion{'suggestioncreateddate'}=C4::Dates->today;
$$suggestion{'branchcode'}=C4::Context->userenv->{"branch"};
&NewSuggestion($suggestion);
# empty fields, to avoid filter in "SearchSuggestion"
my $supportlist=GetSupportList();
foreach my $support(@$supportlist){
if ($$support{'imageurl'}){
- $$support{'imageurl'}= getitemtypeimagelocation( 'intranet', $$support{'imageurl'} );
+ $$support{'imageurl'}= getitemtypeimagelocation( 'opac', $$support{'imageurl'} );
}
else {
delete $$support{'imageurl'}
suggestionsview => 1
);
+
output_html_with_http_headers $input, $cookie, $template->output;