- foreach my $date qw(suggesteddate manageddate){
- $suggestion->{$date}=(($suggestion->{$date} eq "0000-00-00" ||$suggestion->{$date} eq "")?
- $suggestion->{$date}=C4::Dates->today:
- format_date($suggestion->{$date})
- );
- }
- foreach my $date qw(rejecteddate accepteddate){
+ # "Managed by" is used only when a suggestion is being edited (not when created)
+ if ($suggestion->{'suggesteddate'} eq "0000-00-00" ||$suggestion->{'suggesteddate'} eq "") {
+ # new suggestion
+ $suggestion->{'suggesteddate'} = C4::Dates->today;
+ $suggestion->{'suggestedby'} = C4::Context->userenv->{"number"} unless ($suggestion->{'suggestedby'});
+ }
+ else {
+ # editing of an existing suggestion
+ $suggestion->{'manageddate'} = C4::Dates->today;
+ $suggestion->{'managedby'} = C4::Context->userenv->{"number"} unless ($suggestion->{'managedby'});
+ # suggesteddate, when coming from the DB, needs to be formated
+ $suggestion->{'suggesteddate'} = format_date($suggestion->{'suggesteddate'});
+ }
+ foreach my $date ( qw(rejecteddate accepteddate) ){