|
Lines 123-130
my $branchfilter = $input->param('branchcode') || C4::Context->userenv->{'branch
Link Here
|
| 123 |
## Operations |
123 |
## Operations |
| 124 |
## |
124 |
## |
| 125 |
if ( $op =~ /save/i ) { |
125 |
if ( $op =~ /save/i ) { |
| 126 |
$suggestion_only->{suggesteddate} = dt_from_string( $suggestion_only->{suggesteddate} ) |
126 |
|
| 127 |
if $suggestion_only->{suggesteddate}; |
127 |
for my $date_key ( qw( suggesteddate manageddate accepteddate rejecteddate ) ) { |
|
|
128 |
$suggestion_only->{$date_key} = dt_from_string( $suggestion_only->{$date_key} ) |
| 129 |
if $suggestion_only->{$date_key}; |
| 130 |
} |
| 128 |
|
131 |
|
| 129 |
if ( $suggestion_only->{"STATUS"} ) { |
132 |
if ( $suggestion_only->{"STATUS"} ) { |
| 130 |
if ( my $tmpstatus = lc( $suggestion_only->{"STATUS"} ) =~ /ACCEPTED|REJECTED/i ) { |
133 |
if ( my $tmpstatus = lc( $suggestion_only->{"STATUS"} ) =~ /ACCEPTED|REJECTED/i ) { |
| 131 |
- |
|
|