|
Lines 112-119
$suggestion_only->{STATUS} = $suggestion_ref->{STATUS};
Link Here
|
| 112 |
delete $$suggestion_ref{$_} |
112 |
delete $$suggestion_ref{$_} |
| 113 |
foreach |
113 |
foreach |
| 114 |
qw( suggestedbyme op displayby tabcode notify filter_archived koha_login_context auth_forwarded_hash password userid ); |
114 |
qw( suggestedbyme op displayby tabcode notify filter_archived koha_login_context auth_forwarded_hash password userid ); |
| 115 |
foreach (keys %$suggestion_ref){ |
115 |
|
| 116 |
delete $$suggestion_ref{$_} if (!$$suggestion_ref{$_} && ($op eq 'else' )); |
116 |
foreach my $key ( keys %$suggestion_ref ) { |
|
|
117 |
delete $suggestion_ref->{$key} if ( !$suggestion_ref->{$key} && ( $op eq 'else' ) ); |
| 118 |
delete $suggestion_ref->{$key} if $key =~ m{^DataTables_acqui_suggestions_suggestions}; |
| 117 |
} |
119 |
} |
| 118 |
delete $suggestion_only->{branchcode} if $suggestion_only->{branchcode} eq '__ANY__'; |
120 |
delete $suggestion_only->{branchcode} if $suggestion_only->{branchcode} eq '__ANY__'; |
| 119 |
delete $suggestion_only->{budgetid} if $suggestion_only->{budgetid} eq '__ANY__'; |
121 |
delete $suggestion_only->{budgetid} if $suggestion_only->{budgetid} eq '__ANY__'; |
| 120 |
- |
|
|