|
Lines 209-228
if ($op=~/else/) {
Link Here
|
| 209 |
my $bud = GetBudget( $suggestion->{budgetid} ); |
209 |
my $bud = GetBudget( $suggestion->{budgetid} ); |
| 210 |
$suggestion->{budget_name} = $bud->{budget_name} if $bud; |
210 |
$suggestion->{budget_name} = $bud->{budget_name} if $bud; |
| 211 |
} |
211 |
} |
| 212 |
foreach my $date qw(suggesteddate manageddate accepteddate) { |
212 |
foreach my $date (qw(suggesteddate manageddate accepteddate)) { |
| 213 |
if ($suggestion->{$date} and $suggestion->{$date} ne "0000-00-00" && $suggestion->{$date} ne "" ) { |
213 |
if ($suggestion->{$date} and $suggestion->{$date} ne "0000-00-00") { |
| 214 |
$suggestion->{$date} = format_date( $suggestion->{$date} ); |
214 |
$suggestion->{$date} = format_date( $suggestion->{$date} ); |
| 215 |
} else { |
215 |
} else { |
| 216 |
$suggestion->{$date} = ""; |
216 |
$suggestion->{$date} = ""; |
| 217 |
} |
217 |
} |
| 218 |
} |
218 |
} |
| 219 |
foreach my $date ( qw(suggesteddate manageddate accepteddate) ){ |
|
|
| 220 |
if ($suggestion->{$date} ne "0000-00-00" && $suggestion->{$date} ne "" ){ |
| 221 |
$suggestion->{$date}=format_date($suggestion->{$date}) ; |
| 222 |
} else { |
| 223 |
$suggestion->{$date}="" ; |
| 224 |
} |
| 225 |
} |
| 226 |
} |
219 |
} |
| 227 |
push @allsuggestions,{ |
220 |
push @allsuggestions,{ |
| 228 |
"suggestiontype"=>$criteriumvalue||"suggest", |
221 |
"suggestiontype"=>$criteriumvalue||"suggest", |
| 229 |
- |
|
|