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 |
- |
|
|