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