7 use C4::Auth; # get_template_and_user
8 use C4::Interface::CGI::Output;
12 my $title = $input->param('title');
13 my $author = $input->param('author');
14 my $publishercode = $input->param('publishercode');
15 my $status = $input->param('status');
16 my $suggestedbyme = $input->param('suggestedbyme');
17 my $note = $input->param('note');
18 my $op = $input->param('op');
19 $op = 'else' unless $op;
21 my $dbh = C4::Context->dbh;
22 my ($template, $borrowernumber, $cookie)
23 = get_template_and_user({template_name => "opac-suggestions.tmpl",
27 flagsrequired => {borrow => 1},
29 if ($op eq "add_confirm") {
30 &newsuggestion($borrowernumber,$title,$author,$publishercode,$note);
31 # empty fields, to avoid filter in "searchsuggestion"
38 if ($op eq "delete_confirm") {
39 my @delete_field = $input->param("delete_field");
40 foreach my $delete_field (@delete_field) {
41 &delsuggestion($borrowernumber,$delete_field);
46 my $suggestions_loop= &searchsuggestion($borrowernumber,$author,$title,$publishercode,$status,$suggestedbyme);
47 $template->param(suggestions_loop => $suggestions_loop,
50 publishercode => $publishercode,
52 suggestedbyme => $suggestedbyme,
55 output_html_with_http_headers $input, $cookie, $template->output;