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

(-)a/opac/opac-suggestions.pl (-6 / +3 lines)
Lines 127-140 if ( $op eq 'else' ) { Link Here
127
    }
127
    }
128
}
128
}
129
129
130
my @suggestion_fields =
130
$suggestion = {
131
  qw( title author copyrightdate isbn publishercode collectiontitle place quantity itemtype patronreason note );
132
my $suggestion = {
133
    map {
131
    map {
132
        my $p = $suggestion->{$_}
134
        # Keep parameters that are not an empty string
133
        # Keep parameters that are not an empty string
135
        my $p = $input->param($_);
136
        ( defined $p && $p ne '' ? ( $_ => $p ) : () )
134
        ( defined $p && $p ne '' ? ( $_ => $p ) : () )
137
    } @suggestion_fields
135
    } keys %$suggestion
138
};
136
};
139
$suggestion->{suggestedby} = $borrowernumber;
137
$suggestion->{suggestedby} = $borrowernumber;
140
138
141
- 

Return to bug 23991