Lines 26-31
use Try::Tiny;
Link Here
|
26 |
use C4::Circulation qw( AddRenewal CanBookBeRenewed ); |
26 |
use C4::Circulation qw( AddRenewal CanBookBeRenewed ); |
27 |
use C4::Context; |
27 |
use C4::Context; |
28 |
use C4::Auth qw(check_cookie_auth); |
28 |
use C4::Auth qw(check_cookie_auth); |
|
|
29 |
use C4::Log qw( logaction ); |
29 |
|
30 |
|
30 |
use Koha::DateUtils qw(output_pref dt_from_string); |
31 |
use Koha::DateUtils qw(output_pref dt_from_string); |
31 |
|
32 |
|
Lines 52-57
my $date_due;
Link Here
|
52 |
if ( $input->param('date_due') ) { |
53 |
if ( $input->param('date_due') ) { |
53 |
$date_due = dt_from_string( scalar $input->param('date_due') ); |
54 |
$date_due = dt_from_string( scalar $input->param('date_due') ); |
54 |
} |
55 |
} |
|
|
56 |
my $borrower = Koha::Patrons->find($borrowernumber); |
57 |
my $user = C4::Context->userenv->{'number'}; |
58 |
my $message; |
59 |
my @message; |
55 |
|
60 |
|
56 |
my $data; |
61 |
my $data; |
57 |
$data->{itemnumber} = $itemnumber; |
62 |
$data->{itemnumber} = $itemnumber; |
Lines 65-73
my $item = Koha::Items->find($itemnumber);
Link Here
|
65 |
CanBookBeRenewed( $patron, $item->checkout, $override_limit ); |
70 |
CanBookBeRenewed( $patron, $item->checkout, $override_limit ); |
66 |
|
71 |
|
67 |
# If we're allowing reserved items to be renewed... |
72 |
# If we're allowing reserved items to be renewed... |
68 |
if ( $data->{error} && $data->{error} eq 'on_reserve' && C4::Context->preference('AllowRenewalOnHoldOverride')) { |
73 |
if ( $data->{error} && $data->{error} eq 'on_reserve' && C4::Context->preference('AllowRenewalOnHoldOverride') ) { |
69 |
$data->{renew_okay} = 1; |
74 |
$data->{renew_okay} = 1; |
70 |
$data->{error} = undef; |
75 |
$data->{error} = undef; |
|
|
76 |
|
77 |
$message = "Override Renew hold for another"; |
78 |
@message = ("Override Renew hold for another"); |
79 |
|
80 |
my $infos = ( |
81 |
{ |
82 |
message => \@message, |
83 |
borrowernumber => $borrowernumber, |
84 |
barcode => $item->barcode, |
85 |
manager_id => $user, |
86 |
branchcode => $branchcode, |
87 |
} |
88 |
); |
89 |
|
90 |
my $json_infos = JSON->new->utf8->pretty->encode($infos); |
91 |
$json_infos =~ s/"/'/g; |
92 |
|
93 |
logaction( |
94 |
"CIRCULATION", "RENEWAL", |
95 |
$borrower->{'borrowernumber'}, |
96 |
$json_infos, |
97 |
) if C4::Context->preference("IssueLog"); |
98 |
} |
99 |
|
100 |
if ( $data->{error} && $data->{error} eq 'too_many' && C4::Context->preference('AllowRenewalLimitOverride') ) { |
101 |
$data->{renew_okay} = 1; |
102 |
$data->{error} = undef; |
103 |
|
104 |
$message = "Override limit Renew"; |
105 |
@message = ("Override limit Renew"); |
106 |
|
107 |
my $infos = ( |
108 |
{ |
109 |
message => \@message, |
110 |
borrowernumber => $borrowernumber, |
111 |
barcode => $item->barcode, |
112 |
manager_id => $user, |
113 |
branchcode => $branchcode, |
114 |
} |
115 |
); |
116 |
|
117 |
my $json_infos = JSON->new->utf8->pretty->encode($infos); |
118 |
$json_infos =~ s/"/'/g; |
119 |
|
120 |
logaction( |
121 |
"CIRCULATION", "RENEWAL", |
122 |
$borrower->{'borrowernumber'}, |
123 |
$json_infos, |
124 |
) if C4::Context->preference("IssueLog"); |
71 |
} |
125 |
} |
72 |
|
126 |
|
73 |
if ( $data->{renew_okay} || ( $seen && $data->{error} eq 'too_unseen') ) { |
127 |
if ( $data->{renew_okay} || ( $seen && $data->{error} eq 'too_unseen') ) { |
74 |
- |
|
|