|
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 112-118
my $sql = '
Link Here
|
| 112 |
return_claims.id AS return_claim_id, |
111 |
return_claims.id AS return_claim_id, |
| 113 |
return_claims.notes AS return_claim_notes, |
112 |
return_claims.notes AS return_claim_notes, |
| 114 |
return_claims.created_on AS return_claim_created_on, |
113 |
return_claims.created_on AS return_claim_created_on, |
| 115 |
return_claims.updated_on AS return_claim_updated_on |
114 |
return_claims.updated_on AS return_claim_updated_on, |
|
|
115 |
|
| 116 |
acc.charge, |
| 117 |
acc.fine |
| 116 |
|
118 |
|
| 117 |
FROM issues |
119 |
FROM issues |
| 118 |
LEFT JOIN items USING ( itemnumber ) |
120 |
LEFT JOIN items USING ( itemnumber ) |
|
Lines 121-129
my $sql = '
Link Here
|
| 121 |
LEFT JOIN borrowers USING ( borrowernumber ) |
123 |
LEFT JOIN borrowers USING ( borrowernumber ) |
| 122 |
LEFT JOIN branches ON ( issues.branchcode = branches.branchcode ) |
124 |
LEFT JOIN branches ON ( issues.branchcode = branches.branchcode ) |
| 123 |
LEFT JOIN branches branches2 ON ( items.homebranch = branches2.branchcode ) |
125 |
LEFT JOIN branches branches2 ON ( items.homebranch = branches2.branchcode ) |
| 124 |
LEFT JOIN return_claims USING ( issue_id ) |
126 |
LEFT JOIN return_claims USING ( issue_id, borrowernumber, itemnumber ) |
|
|
127 |
LEFT OUTER JOIN ( |
| 128 |
SELECT borrowernumber, itemnumber, |
| 129 |
SUM(CASE WHEN debit_type_code LIKE 'RENT%' THEN amountoutstanding ELSE 0.00 END) AS charge, |
| 130 |
SUM(CASE WHEN debit_type_code = 'OVERDUE' THEN amountoutstanding ELSE 0.00 END) AS fine |
| 131 |
FROM accountlines |
| 132 |
GROUP BY borrowernumber, itemnumber |
| 133 |
) acc USING ( borrowernumber, itemnumber ) |
| 125 |
WHERE issues.borrowernumber |
134 |
WHERE issues.borrowernumber |
| 126 |
'; |
135 |
EOQ |
| 127 |
|
136 |
|
| 128 |
if ( @borrowernumber == 1 ) { |
137 |
if ( @borrowernumber == 1 ) { |
| 129 |
$sql .= '= ?'; |
138 |
$sql .= '= ?'; |
|
Lines 148-156
my $itemtypes = { map { $_->{itemtype} => $_->{translated_description} } @{ Koha
Link Here
|
| 148 |
my @checkouts_today; |
157 |
my @checkouts_today; |
| 149 |
my @checkouts_previous; |
158 |
my @checkouts_previous; |
| 150 |
while ( my $c = $sth->fetchrow_hashref() ) { |
159 |
while ( my $c = $sth->fetchrow_hashref() ) { |
| 151 |
my ($charge) = GetIssuingCharges( $c->{itemnumber}, $c->{borrowernumber} ); |
|
|
| 152 |
my $fine = GetFine( $c->{itemnumber}, $c->{borrowernumber} ); |
| 153 |
|
| 154 |
my ( $can_renew, $can_renew_error ) = |
160 |
my ( $can_renew, $can_renew_error ) = |
| 155 |
CanBookBeRenewed( $c->{borrowernumber}, $c->{itemnumber} ); |
161 |
CanBookBeRenewed( $c->{borrowernumber}, $c->{itemnumber} ); |
| 156 |
my $can_renew_date = |
162 |
my $can_renew_date = |
|
Lines 231-238
while ( my $c = $sth->fetchrow_hashref() ) {
Link Here
|
| 231 |
branchname => $c->{branchname}, |
237 |
branchname => $c->{branchname}, |
| 232 |
itemcallnumber => $c->{itemcallnumber} || q{}, |
238 |
itemcallnumber => $c->{itemcallnumber} || q{}, |
| 233 |
copynumber => $c->{copynumber} || q{}, |
239 |
copynumber => $c->{copynumber} || q{}, |
| 234 |
charge => $charge, |
240 |
charge => $c->{charge} || 0.00, |
| 235 |
fine => $fine, |
241 |
fine => $c->{fine} || 0.00, |
| 236 |
price => $c->{replacementprice} || q{}, |
242 |
price => $c->{replacementprice} || q{}, |
| 237 |
can_renew => $can_renew, |
243 |
can_renew => $can_renew, |
| 238 |
can_renew_error => $can_renew_error, |
244 |
can_renew_error => $can_renew_error, |
| 239 |
- |
|
|