|
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 |
- |
|
|