@@ -, +, @@ updating the status --- suggestion/suggestion.pl | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) --- a/suggestion/suggestion.pl +++ a/suggestion/suggestion.pl @@ -176,14 +176,11 @@ elsif ($op eq "change" ) { } if ( my $reason = $$suggestion_ref{"reason$tabcode"}){ if ( $reason eq "other" ) { - $reason = $$suggestion_ref{"other_reason$tabcode"}; + $reason = $$suggestion_ref{"other_reason$tabcode"}; } - $$suggestion_ref{'reason'}=$reason; - } - delete $$suggestion_ref{$_} foreach ("reason$tabcode", "other_reason$tabcode"); - foreach (keys %$suggestion_ref){ - delete $$suggestion_ref{$_} unless ($$suggestion_ref{$_}); + $suggestion_only->{reason}=$reason; } + foreach my $suggestionid (@editsuggestions) { next unless $suggestionid; $suggestion_only->{'suggestionid'}=$suggestionid; --