|
Lines 108-114
my $columns = ' '.join(' ', $schema->source('Suggestion')->columns).' ';
Link Here
|
| 108 |
my $suggestion_only = { map { $columns =~ / $_ / ? ($_ => $suggestion_ref->{$_}) : () } keys %$suggestion_ref }; |
108 |
my $suggestion_only = { map { $columns =~ / $_ / ? ($_ => $suggestion_ref->{$_}) : () } keys %$suggestion_ref }; |
| 109 |
$suggestion_only->{STATUS} = $suggestion_ref->{STATUS}; |
109 |
$suggestion_only->{STATUS} = $suggestion_ref->{STATUS}; |
| 110 |
|
110 |
|
| 111 |
delete $$suggestion_ref{$_} foreach qw( suggestedbyme op displayby tabcode notify filter_archived ); |
111 |
delete $$suggestion_ref{$_} |
|
|
112 |
foreach |
| 113 |
qw( suggestedbyme op displayby tabcode notify filter_archived koha_login_context auth_forwarded_hash password userid ); |
| 112 |
foreach (keys %$suggestion_ref){ |
114 |
foreach (keys %$suggestion_ref){ |
| 113 |
delete $$suggestion_ref{$_} if (!$$suggestion_ref{$_} && ($op eq 'else' )); |
115 |
delete $$suggestion_ref{$_} if (!$$suggestion_ref{$_} && ($op eq 'else' )); |
| 114 |
} |
116 |
} |
| 115 |
- |
|
|