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

(-)a/suggestion/suggestion.pl (-5 / +9 lines)
Lines 138-148 elsif ($op=~/edit/) { Link Here
138
    $op ='save';
138
    $op ='save';
139
}  
139
}  
140
elsif ($op eq "change" ) {
140
elsif ($op eq "change" ) {
141
    # set accepted/rejected/managed informations if applicable
142
    # ie= if the librarian has choosen some action on the suggestions
143
    if ($$suggestion_ref{"STATUS"} eq "ACCEPTED"){
144
        $$suggestion_ref{"accepteddate"}=C4::Dates->today;
145
        $$suggestion_ref{"acceptedby"}=C4::Context->userenv->{number};
146
    } elsif ($$suggestion_ref{"STATUS"} eq "REJECTED"){
147
        $$suggestion_ref{"rejecteddate"}=C4::Dates->today;
148
        $$suggestion_ref{"rejectedby"}=C4::Context->userenv->{number};
149
    }
141
	if ($$suggestion_ref{"STATUS"}){
150
	if ($$suggestion_ref{"STATUS"}){
142
		if (my $tmpstatus=lc($$suggestion_ref{"STATUS"}) =~/ACCEPTED|REJECTED/i){
143
			$$suggestion_ref{"$tmpstatus"."date"}=C4::Dates->today;
144
			$$suggestion_ref{"$tmpstatus"."by"}=C4::Context->userenv->{number};
145
		}
146
		$$suggestion_ref{"manageddate"}=C4::Dates->today;
151
		$$suggestion_ref{"manageddate"}=C4::Dates->today;
147
		$$suggestion_ref{"managedby"}=C4::Context->userenv->{number};
152
		$$suggestion_ref{"managedby"}=C4::Context->userenv->{number};
148
	}
153
	}
149
- 

Return to bug 6045