|
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 |
- |
|
|