|
Lines 31-36
use C4::Search;
Link Here
|
| 31 |
use C4::Dates qw(format_date); |
31 |
use C4::Dates qw(format_date); |
| 32 |
use C4::Members; |
32 |
use C4::Members; |
| 33 |
use C4::Debug; |
33 |
use C4::Debug; |
|
|
34 |
|
| 35 |
use Koha::DateUtils qw( dt_from_string ); |
| 36 |
|
| 34 |
use URI::Escape; |
37 |
use URI::Escape; |
| 35 |
|
38 |
|
| 36 |
sub Init{ |
39 |
sub Init{ |
|
Lines 123-132
$template->param('borrowernumber' => $borrowernumber);
Link Here
|
| 123 |
if ( $op =~ /save/i ) { |
126 |
if ( $op =~ /save/i ) { |
| 124 |
if ( $suggestion_only->{"STATUS"} ) { |
127 |
if ( $suggestion_only->{"STATUS"} ) { |
| 125 |
if ( my $tmpstatus = lc( $suggestion_only->{"STATUS"} ) =~ /ACCEPTED|REJECTED/i ) { |
128 |
if ( my $tmpstatus = lc( $suggestion_only->{"STATUS"} ) =~ /ACCEPTED|REJECTED/i ) { |
| 126 |
$suggestion_only->{ lc( $suggestion_only->{"STATUS"}) . "date" } = C4::Dates->today; |
129 |
$suggestion_only->{ lc( $suggestion_only->{"STATUS"}) . "date" } = dt_from_string; |
| 127 |
$suggestion_only->{ lc( $suggestion_only->{"STATUS"}) . "by" } = C4::Context->userenv->{number}; |
130 |
$suggestion_only->{ lc( $suggestion_only->{"STATUS"}) . "by" } = C4::Context->userenv->{number}; |
| 128 |
} |
131 |
} |
| 129 |
$suggestion_only->{"manageddate"} = C4::Dates->today; |
132 |
$suggestion_only->{manageddate} = dt_from_string; |
| 130 |
$suggestion_only->{"managedby"} = C4::Context->userenv->{number}; |
133 |
$suggestion_only->{"managedby"} = C4::Context->userenv->{number}; |
| 131 |
} |
134 |
} |
| 132 |
if ( $suggestion_only->{'suggestionid'} > 0 ) { |
135 |
if ( $suggestion_only->{'suggestionid'} > 0 ) { |
|
Lines 167-180
elsif ($op eq "change" ) {
Link Here
|
| 167 |
# set accepted/rejected/managed informations if applicable |
170 |
# set accepted/rejected/managed informations if applicable |
| 168 |
# ie= if the librarian has choosen some action on the suggestions |
171 |
# ie= if the librarian has choosen some action on the suggestions |
| 169 |
if ($suggestion_only->{"STATUS"} eq "ACCEPTED"){ |
172 |
if ($suggestion_only->{"STATUS"} eq "ACCEPTED"){ |
| 170 |
$suggestion_only->{"accepteddate"}=C4::Dates->today; |
173 |
$suggestion_only->{accepteddate} = dt_from_string; |
| 171 |
$suggestion_only->{"acceptedby"}=C4::Context->userenv->{number}; |
174 |
$suggestion_only->{"acceptedby"}=C4::Context->userenv->{number}; |
| 172 |
} elsif ($suggestion_only->{"STATUS"} eq "REJECTED"){ |
175 |
} elsif ($suggestion_only->{"STATUS"} eq "REJECTED"){ |
| 173 |
$suggestion_only->{"rejecteddate"}=C4::Dates->today; |
176 |
$suggestion_only->{rejecteddate} = dt_from_string; |
| 174 |
$suggestion_only->{"rejectedby"}=C4::Context->userenv->{number}; |
177 |
$suggestion_only->{"rejectedby"}=C4::Context->userenv->{number}; |
| 175 |
} |
178 |
} |
| 176 |
if ($suggestion_only->{"STATUS"}){ |
179 |
if ($suggestion_only->{"STATUS"}){ |
| 177 |
$suggestion_only->{"manageddate"}=C4::Dates->today; |
180 |
$suggestion_only->{manageddate} = dt_from_string; |
| 178 |
$suggestion_only->{"managedby"}=C4::Context->userenv->{number}; |
181 |
$suggestion_only->{"managedby"}=C4::Context->userenv->{number}; |
| 179 |
} |
182 |
} |
| 180 |
if ( my $reason = $$suggestion_ref{"reason$tabcode"}){ |
183 |
if ( my $reason = $$suggestion_ref{"reason$tabcode"}){ |
| 181 |
- |
|
|