|
Lines 176-189
elsif ($op eq "change" ) {
Link Here
|
| 176 |
} |
176 |
} |
| 177 |
if ( my $reason = $$suggestion_ref{"reason$tabcode"}){ |
177 |
if ( my $reason = $$suggestion_ref{"reason$tabcode"}){ |
| 178 |
if ( $reason eq "other" ) { |
178 |
if ( $reason eq "other" ) { |
| 179 |
$reason = $$suggestion_ref{"other_reason$tabcode"}; |
179 |
$reason = $$suggestion_ref{"other_reason$tabcode"}; |
| 180 |
} |
180 |
} |
| 181 |
$$suggestion_ref{'reason'}=$reason; |
181 |
$suggestion_only->{reason}=$reason; |
| 182 |
} |
|
|
| 183 |
delete $$suggestion_ref{$_} foreach ("reason$tabcode", "other_reason$tabcode"); |
| 184 |
foreach (keys %$suggestion_ref){ |
| 185 |
delete $$suggestion_ref{$_} unless ($$suggestion_ref{$_}); |
| 186 |
} |
182 |
} |
|
|
183 |
|
| 187 |
foreach my $suggestionid (@editsuggestions) { |
184 |
foreach my $suggestionid (@editsuggestions) { |
| 188 |
next unless $suggestionid; |
185 |
next unless $suggestionid; |
| 189 |
$suggestion_only->{'suggestionid'}=$suggestionid; |
186 |
$suggestion_only->{'suggestionid'}=$suggestionid; |
| 190 |
- |
|
|