View | Details | Raw Unified | Return to bug 23855
Collapse All | Expand All

(-)a/suggestion/suggestion.pl (-4 / +1 lines)
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
- 

Return to bug 23855