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

(-)a/koha-tmpl/opac-tmpl/bootstrap/en/modules/opac-suggestions.tt (-3 lines)
Lines 289-297 Link Here
289
                                                [% END %]
289
                                                [% END %]
290
                                            </li>
290
                                            </li>
291
                                        [% END %]
291
                                        [% END %]
292
293
                                        <!--  Add a hidden 'negcap' field -->
294
                                        <li id="negcap" style="position: absolute; left: -2000px;"> negcap <input type="text" name="negcap" /> </li>
295
                                    </ol>
292
                                    </ol>
296
                                </fieldset>
293
                                </fieldset>
297
                                <fieldset class="action">
294
                                <fieldset class="action">
(-)a/opac/opac-suggestions.pl (-8 lines)
Lines 41-47 use Koha::DateUtils qw( dt_from_string ); Link Here
41
my $input               = CGI->new;
41
my $input               = CGI->new;
42
my $op                  = $input->param('op') || 'else';
42
my $op                  = $input->param('op') || 'else';
43
my $biblionumber        = $input->param('biblionumber');
43
my $biblionumber        = $input->param('biblionumber');
44
my $negcaptcha          = $input->param('negcap');
45
my $suggested_by_anyone = $input->param('suggested_by_anyone') || 0;
44
my $suggested_by_anyone = $input->param('suggested_by_anyone') || 0;
46
my $title_filter        = $input->param('title_filter');
45
my $title_filter        = $input->param('title_filter');
47
my $need_confirm        = 0;
46
my $need_confirm        = 0;
Lines 62-73 my $suggestion = { Link Here
62
    note            => scalar $input->param('note'),
61
    note            => scalar $input->param('note'),
63
};
62
};
64
63
65
# If a spambot accidentally populates the 'negcap' field in the suggestions form, then silently skip and return.
66
if ($negcaptcha) {
67
    print $input->redirect("/cgi-bin/koha/opac-suggestions.pl");
68
    exit;
69
}
70
71
my ( $template, $borrowernumber, $cookie, @messages );
64
my ( $template, $borrowernumber, $cookie, @messages );
72
my $deleted   = $input->param('deleted');
65
my $deleted   = $input->param('deleted');
73
my $submitted = $input->param('submitted');
66
my $submitted = $input->param('submitted');
74
- 

Return to bug 41202