|
Lines 143-150
if ( $op =~ /save/i ) {
Link Here
|
| 143 |
Init($suggestion_ref); |
143 |
Init($suggestion_ref); |
| 144 |
} |
144 |
} |
| 145 |
else { |
145 |
else { |
| 146 |
$suggestion_only->{suggesteddate} = dt_from_string( $suggestion_only->{suggesteddate} ) |
146 |
|
| 147 |
if $suggestion_only->{suggesteddate}; |
147 |
for my $date_key ( qw( suggesteddate manageddate accepteddate rejecteddate ) ) { |
|
|
148 |
$suggestion_only->{$date_key} = dt_from_string( $suggestion_only->{$date_key} ) |
| 149 |
if $suggestion_only->{$date_key}; |
| 150 |
} |
| 148 |
|
151 |
|
| 149 |
if ( $suggestion_only->{"STATUS"} ) { |
152 |
if ( $suggestion_only->{"STATUS"} ) { |
| 150 |
if ( my $tmpstatus = lc( $suggestion_only->{"STATUS"} ) =~ /ACCEPTED|REJECTED/i ) { |
153 |
if ( my $tmpstatus = lc( $suggestion_only->{"STATUS"} ) =~ /ACCEPTED|REJECTED/i ) { |
| 151 |
- |
|
|