Lines 33-38
my $input = new CGI;
Link Here
|
33 |
my $allsuggestions = $input->param('showall'); |
33 |
my $allsuggestions = $input->param('showall'); |
34 |
my $op = $input->param('op'); |
34 |
my $op = $input->param('op'); |
35 |
my $suggestion = $input->Vars; |
35 |
my $suggestion = $input->Vars; |
|
|
36 |
my $negcaptcha = $input->param('negcap'); |
37 |
|
38 |
# If a spambot accidentally populates the 'negcap' field in the sugesstions form, then silently skip and return. |
39 |
if ($negcaptcha ) { |
40 |
print $input->redirect("/cgi-bin/koha/opac-suggestions.pl"); |
41 |
exit; |
42 |
} |
43 |
|
36 |
delete $$suggestion{$_} foreach qw<op suggestedbyme>; |
44 |
delete $$suggestion{$_} foreach qw<op suggestedbyme>; |
37 |
$op = 'else' unless $op; |
45 |
$op = 'else' unless $op; |
38 |
|
46 |
|
39 |
- |
|
|