|
Lines 188-217
elsif ($op=~/edit/) {
Link Here
|
| 188 |
$op ='save'; |
188 |
$op ='save'; |
| 189 |
} |
189 |
} |
| 190 |
elsif ($op eq "change" ) { |
190 |
elsif ($op eq "change" ) { |
|
|
191 |
|
| 192 |
my $suggestion; |
| 191 |
# set accepted/rejected/managed informations if applicable |
193 |
# set accepted/rejected/managed informations if applicable |
| 192 |
# ie= if the librarian has chosen some action on the suggestions |
194 |
# ie= if the librarian has chosen some action on the suggestions |
| 193 |
if ($suggestion_only->{"STATUS"} eq "ACCEPTED"){ |
195 |
my $STATUS = $input->param('STATUS'); |
| 194 |
$suggestion_only->{accepteddate} = dt_from_string; |
196 |
my $accepted_by = $input->param('acceptedby'); |
| 195 |
$suggestion_only->{"acceptedby"}=C4::Context->userenv->{number}; |
197 |
if ( $STATUS eq "ACCEPTED" ) { |
| 196 |
} elsif ($suggestion_only->{"STATUS"} eq "REJECTED"){ |
198 |
$suggestion = { |
| 197 |
$suggestion_only->{rejecteddate} = dt_from_string; |
199 |
STATUS => $STATUS, |
| 198 |
$suggestion_only->{"rejectedby"}=C4::Context->userenv->{number}; |
200 |
accepteddate => dt_from_string, |
|
|
201 |
acceptedby => C4::Context->userenv->{number}, |
| 202 |
}; |
| 199 |
} |
203 |
} |
| 200 |
if ($suggestion_only->{"STATUS"}){ |
204 |
elsif ( $STATUS eq "REJECTED" ) { |
| 201 |
$suggestion_only->{manageddate} = dt_from_string; |
205 |
$suggestion = { |
| 202 |
$suggestion_only->{"managedby"}=C4::Context->userenv->{number}; |
206 |
|
|
|
207 |
STATUS => $STATUS, |
| 208 |
rejecteddate => dt_from_string, |
| 209 |
rejectedby => C4::Context->userenv->{number}, |
| 210 |
}; |
| 203 |
} |
211 |
} |
| 204 |
if ( my $reason = $$suggestion_ref{"reason$tabcode"}){ |
212 |
if ($STATUS) { |
|
|
213 |
$suggestion->{manageddate} = dt_from_string; |
| 214 |
$suggestion->{managedby} = C4::Context->userenv->{number}; |
| 215 |
} |
| 216 |
if ( my $reason = $input->param("reason$tabcode") ) { |
| 205 |
if ( $reason eq "other" ) { |
217 |
if ( $reason eq "other" ) { |
| 206 |
$reason = $$suggestion_ref{"other_reason$tabcode"}; |
218 |
$reason = $input->param("other_reason$tabcode"); |
| 207 |
} |
219 |
} |
| 208 |
$suggestion_only->{reason}=$reason; |
220 |
$suggestion->{reason} = $reason; |
| 209 |
} |
221 |
} |
| 210 |
|
222 |
|
| 211 |
foreach my $suggestionid (@editsuggestions) { |
223 |
foreach my $suggestionid (@editsuggestions) { |
| 212 |
next unless $suggestionid; |
224 |
next unless $suggestionid; |
| 213 |
$suggestion_only->{'suggestionid'}=$suggestionid; |
225 |
$suggestion->{suggestionid} = $suggestionid; |
| 214 |
&ModSuggestion($suggestion_only); |
226 |
use Data::Printer colored => 1; warn p $suggestion; |
|
|
227 |
&ModSuggestion($suggestion); |
| 215 |
} |
228 |
} |
| 216 |
my $params = ''; |
229 |
my $params = ''; |
| 217 |
foreach my $key ( |
230 |
foreach my $key ( |
| 218 |
- |
|
|