|
Lines 23-30
use CGI;
Link Here
|
| 23 |
use JSON qw(to_json); |
23 |
use JSON qw(to_json); |
| 24 |
|
24 |
|
| 25 |
use C4::Auth qw(check_cookie_auth haspermission get_session); |
25 |
use C4::Auth qw(check_cookie_auth haspermission get_session); |
| 26 |
use C4::Circulation qw(GetIssuingCharges CanBookBeRenewed GetRenewCount GetSoonestRenewDate); |
26 |
use C4::Circulation qw(CanBookBeRenewed GetRenewCount GetSoonestRenewDate); |
| 27 |
use C4::Overdues qw(GetFine); |
|
|
| 28 |
use C4::Context; |
27 |
use C4::Context; |
| 29 |
|
28 |
|
| 30 |
use Koha::AuthorisedValues; |
29 |
use Koha::AuthorisedValues; |
|
Lines 62-68
binmode STDOUT, ":encoding(UTF-8)";
Link Here
|
| 62 |
print $input->header( -type => 'text/plain', -charset => 'UTF-8' ); |
61 |
print $input->header( -type => 'text/plain', -charset => 'UTF-8' ); |
| 63 |
|
62 |
|
| 64 |
my @parameters; |
63 |
my @parameters; |
| 65 |
my $sql = ' |
64 |
my $sql = <<EOQ; |
| 66 |
SELECT |
65 |
SELECT |
| 67 |
issues.issuedate, |
66 |
issues.issuedate, |
| 68 |
issues.date_due, |
67 |
issues.date_due, |
|
Lines 110-116
my $sql = '
Link Here
|
| 110 |
return_claims.id AS return_claim_id, |
109 |
return_claims.id AS return_claim_id, |
| 111 |
return_claims.notes AS return_claim_notes, |
110 |
return_claims.notes AS return_claim_notes, |
| 112 |
return_claims.created_on AS return_claim_created_on, |
111 |
return_claims.created_on AS return_claim_created_on, |
| 113 |
return_claims.updated_on AS return_claim_updated_on |
112 |
return_claims.updated_on AS return_claim_updated_on, |
|
|
113 |
|
| 114 |
acc.charge, |
| 115 |
acc.fine |
| 114 |
|
116 |
|
| 115 |
FROM issues |
117 |
FROM issues |
| 116 |
LEFT JOIN items USING ( itemnumber ) |
118 |
LEFT JOIN items USING ( itemnumber ) |
|
Lines 119-127
my $sql = '
Link Here
|
| 119 |
LEFT JOIN borrowers USING ( borrowernumber ) |
121 |
LEFT JOIN borrowers USING ( borrowernumber ) |
| 120 |
LEFT JOIN branches ON ( issues.branchcode = branches.branchcode ) |
122 |
LEFT JOIN branches ON ( issues.branchcode = branches.branchcode ) |
| 121 |
LEFT JOIN branches branches2 ON ( items.homebranch = branches2.branchcode ) |
123 |
LEFT JOIN branches branches2 ON ( items.homebranch = branches2.branchcode ) |
| 122 |
LEFT JOIN return_claims USING ( issue_id ) |
124 |
LEFT JOIN return_claims USING ( issue_id, borrowernumber, itemnumber ) |
|
|
125 |
LEFT OUTER JOIN ( |
| 126 |
SELECT borrowernumber, itemnumber, |
| 127 |
SUM(CASE WHEN debit_type_code LIKE 'RENT%' THEN amountoutstanding ELSE 0.00 END) AS charge, |
| 128 |
SUM(CASE WHEN debit_type_code = 'OVERDUE' THEN amountoutstanding ELSE 0.00 END) AS fine |
| 129 |
FROM accountlines |
| 130 |
GROUP BY borrowernumber, itemnumber |
| 131 |
) acc USING ( borrowernumber, itemnumber ) |
| 123 |
WHERE issues.borrowernumber |
132 |
WHERE issues.borrowernumber |
| 124 |
'; |
133 |
EOQ |
| 125 |
|
134 |
|
| 126 |
if ( @borrowernumber == 1 ) { |
135 |
if ( @borrowernumber == 1 ) { |
| 127 |
$sql .= '= ?'; |
136 |
$sql .= '= ?'; |
|
Lines 143-151
my $claims_returned_lost_value = C4::Context->preference('ClaimReturnedLostValue
Link Here
|
| 143 |
my @checkouts_today; |
152 |
my @checkouts_today; |
| 144 |
my @checkouts_previous; |
153 |
my @checkouts_previous; |
| 145 |
while ( my $c = $sth->fetchrow_hashref() ) { |
154 |
while ( my $c = $sth->fetchrow_hashref() ) { |
| 146 |
my ($charge) = GetIssuingCharges( $c->{itemnumber}, $c->{borrowernumber} ); |
|
|
| 147 |
my $fine = GetFine( $c->{itemnumber}, $c->{borrowernumber} ); |
| 148 |
|
| 149 |
my ( $can_renew, $can_renew_error ) = |
155 |
my ( $can_renew, $can_renew_error ) = |
| 150 |
CanBookBeRenewed( $c->{borrowernumber}, $c->{itemnumber} ); |
156 |
CanBookBeRenewed( $c->{borrowernumber}, $c->{itemnumber} ); |
| 151 |
my $can_renew_date = |
157 |
my $can_renew_date = |
|
Lines 207-214
while ( my $c = $sth->fetchrow_hashref() ) {
Link Here
|
| 207 |
branchcode => $c->{branchcode}, |
213 |
branchcode => $c->{branchcode}, |
| 208 |
branchname => $c->{branchname}, |
214 |
branchname => $c->{branchname}, |
| 209 |
itemcallnumber => $c->{itemcallnumber} || q{}, |
215 |
itemcallnumber => $c->{itemcallnumber} || q{}, |
| 210 |
charge => $charge, |
216 |
charge => $c->{charge} || 0.00, |
| 211 |
fine => $fine, |
217 |
fine => $c->{fine} || 0.00, |
| 212 |
price => $c->{replacementprice} || q{}, |
218 |
price => $c->{replacementprice} || q{}, |
| 213 |
can_renew => $can_renew, |
219 |
can_renew => $can_renew, |
| 214 |
can_renew_error => $can_renew_error, |
220 |
can_renew_error => $can_renew_error, |
| 215 |
- |
|
|