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