Lines 196-210
elsif ($op eq "change" ) {
Link Here
|
196 |
my $accepted_by = $input->param('acceptedby'); |
196 |
my $accepted_by = $input->param('acceptedby'); |
197 |
if ( $STATUS eq "ACCEPTED" ) { |
197 |
if ( $STATUS eq "ACCEPTED" ) { |
198 |
$suggestion = { |
198 |
$suggestion = { |
199 |
STATUS => $STATUS, |
|
|
200 |
accepteddate => dt_from_string, |
199 |
accepteddate => dt_from_string, |
201 |
acceptedby => C4::Context->userenv->{number}, |
200 |
acceptedby => C4::Context->userenv->{number}, |
202 |
}; |
201 |
}; |
203 |
} |
202 |
} |
204 |
elsif ( $STATUS eq "REJECTED" ) { |
203 |
elsif ( $STATUS eq "REJECTED" ) { |
205 |
$suggestion = { |
204 |
$suggestion = { |
206 |
|
|
|
207 |
STATUS => $STATUS, |
208 |
rejecteddate => dt_from_string, |
205 |
rejecteddate => dt_from_string, |
209 |
rejectedby => C4::Context->userenv->{number}, |
206 |
rejectedby => C4::Context->userenv->{number}, |
210 |
}; |
207 |
}; |
Lines 212-217
elsif ($op eq "change" ) {
Link Here
|
212 |
if ($STATUS) { |
209 |
if ($STATUS) { |
213 |
$suggestion->{manageddate} = dt_from_string; |
210 |
$suggestion->{manageddate} = dt_from_string; |
214 |
$suggestion->{managedby} = C4::Context->userenv->{number}; |
211 |
$suggestion->{managedby} = C4::Context->userenv->{number}; |
|
|
212 |
$suggestion->{STATUS} = $STATUS; |
215 |
} |
213 |
} |
216 |
if ( my $reason = $input->param("reason$tabcode") ) { |
214 |
if ( my $reason = $input->param("reason$tabcode") ) { |
217 |
if ( $reason eq "other" ) { |
215 |
if ( $reason eq "other" ) { |
218 |
- |
|
|