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

(-)a/opac/opac-suggestions.pl (-8 / +6 lines)
Lines 47-56 my $need_confirm = 0; Link Here
47
if ($negcaptcha ) {
47
if ($negcaptcha ) {
48
    print $input->redirect("/cgi-bin/koha/opac-suggestions.pl");
48
    print $input->redirect("/cgi-bin/koha/opac-suggestions.pl");
49
    exit;
49
    exit;
50
} else {
51
    # don't pass 'negcap' column to DB, else DBI::Class will error
52
    # DBIx::Class::Row::store_column(): No such column 'negcap' on Koha::Schema::Result::Suggestion at  Koha/C4/Suggestions.pm
53
    delete $suggestion->{negcap};
54
}
50
}
55
51
56
#If suggestions are turned off we redirect to 404 error. This will also redirect guest suggestions
52
#If suggestions are turned off we redirect to 404 error. This will also redirect guest suggestions
Lines 59-67 if ( ! C4::Context->preference('suggestion') ) { Link Here
59
    exit;
55
    exit;
60
}
56
}
61
57
62
delete $suggestion->{$_} foreach qw<op suggested_by_anyone confirm>;
63
$op = 'else' unless $op;
64
65
my ( $template, $borrowernumber, $cookie, @messages );
58
my ( $template, $borrowernumber, $cookie, @messages );
66
my $deleted = $input->param('deleted');
59
my $deleted = $input->param('deleted');
67
my $submitted = $input->param('submitted');
60
my $submitted = $input->param('submitted');
Lines 87-92 else { Link Here
87
    );
80
    );
88
}
81
}
89
82
83
# don't pass 'negcap' column to DB, else DBI::Class will error
84
# DBIx::Class::Row::store_column(): No such column 'negcap' on Koha::Schema::Result::Suggestion at  Koha/C4/Suggestions.pm
85
delete $suggestion->{negcap};
86
delete $suggestion->{$_} foreach qw<op suggested_by_anyone confirm>;
87
$op = 'else' unless $op;
88
90
if ( $op eq 'else' ) {
89
if ( $op eq 'else' ) {
91
    if ( C4::Context->preference("OPACViewOthersSuggestions") ) {
90
    if ( C4::Context->preference("OPACViewOthersSuggestions") ) {
92
        if ( $borrowernumber ) {
91
        if ( $borrowernumber ) {
93
- 

Return to bug 24345