|
Lines 36-42
use Koha::Patrons;
Link Here
|
| 36 |
use Koha::DateUtils qw( dt_from_string ); |
36 |
use Koha::DateUtils qw( dt_from_string ); |
| 37 |
|
37 |
|
| 38 |
my $input = new CGI; |
38 |
my $input = new CGI; |
| 39 |
my $op = $input->param('op'); |
39 |
my $op = $input->param('op') || 'else'; |
| 40 |
my $biblionumber = $input->param('biblionumber'); |
40 |
my $biblionumber = $input->param('biblionumber'); |
| 41 |
my $suggestion = $input->Vars; |
41 |
my $suggestion = $input->Vars; |
| 42 |
my $negcaptcha = $input->param('negcap'); |
42 |
my $negcaptcha = $input->param('negcap'); |
|
Lines 84-90
else {
Link Here
|
| 84 |
# DBIx::Class::Row::store_column(): No such column 'negcap' on Koha::Schema::Result::Suggestion at Koha/C4/Suggestions.pm |
84 |
# DBIx::Class::Row::store_column(): No such column 'negcap' on Koha::Schema::Result::Suggestion at Koha/C4/Suggestions.pm |
| 85 |
delete $suggestion->{negcap}; |
85 |
delete $suggestion->{negcap}; |
| 86 |
delete $suggestion->{$_} foreach qw<op suggested_by_anyone confirm>; |
86 |
delete $suggestion->{$_} foreach qw<op suggested_by_anyone confirm>; |
| 87 |
$op = 'else' unless $op; |
|
|
| 88 |
|
87 |
|
| 89 |
if ( $op eq 'else' ) { |
88 |
if ( $op eq 'else' ) { |
| 90 |
if ( C4::Context->preference("OPACViewOthersSuggestions") ) { |
89 |
if ( C4::Context->preference("OPACViewOthersSuggestions") ) { |
| 91 |
- |
|
|