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

(-)a/suggestion/suggestion.pl (-2 / +1 lines)
Lines 98-104 my $suggestion_ref = $input->Vars; Link Here
98
# get only the columns of Suggestion
98
# get only the columns of Suggestion
99
my $schema = Koha::Database->new()->schema;
99
my $schema = Koha::Database->new()->schema;
100
my $columns = ' '.join(' ', $schema->source('Suggestion')->columns).' ';
100
my $columns = ' '.join(' ', $schema->source('Suggestion')->columns).' ';
101
my $suggestion_only = { map { $columns =~ / $_ / ? ($_ => $suggestion_ref->{$_}) : () } keys($suggestion_ref) };
101
my $suggestion_only = { map { $columns =~ / $_ / ? ($_ => $suggestion_ref->{$_}) : () } keys %$suggestion_ref };
102
$suggestion_only->{STATUS} = $suggestion_ref->{STATUS};
102
$suggestion_only->{STATUS} = $suggestion_ref->{STATUS};
103
103
104
delete $$suggestion_ref{$_} foreach qw( suggestedbyme op displayby tabcode edit_field );
104
delete $$suggestion_ref{$_} foreach qw( suggestedbyme op displayby tabcode edit_field );
105
- 

Return to bug 12627