|
Lines 25-32
use JSON qw(to_json);
Link Here
|
| 25 |
|
25 |
|
| 26 |
use C4::Auth qw(check_cookie_auth); |
26 |
use C4::Auth qw(check_cookie_auth); |
| 27 |
use C4::Biblio qw(GetMarcBiblio GetFrameworkCode GetRecordValue ); |
27 |
use C4::Biblio qw(GetMarcBiblio GetFrameworkCode GetRecordValue ); |
| 28 |
use C4::Circulation |
28 |
use C4::Circulation qw(GetIssuingCharges CanBookBeRenewed GetRenewCount GetSoonestRenewDate); |
| 29 |
qw(GetIssuingCharges CanBookBeRenewed GetRenewCount GetSoonestRenewDate); |
29 |
use C4::Koha qw(GetAuthorisedValueByCode); |
| 30 |
use C4::Context; |
30 |
use C4::Context; |
| 31 |
|
31 |
|
| 32 |
use Koha::DateUtils; |
32 |
use Koha::DateUtils; |
|
Lines 86-91
my $sql = '
Link Here
|
| 86 |
firstname, |
86 |
firstname, |
| 87 |
cardnumber, |
87 |
cardnumber, |
| 88 |
|
88 |
|
|
|
89 |
itemlost, |
| 90 |
|
| 89 |
DATEDIFF( issuedate, CURRENT_DATE() ) AS not_issued_today |
91 |
DATEDIFF( issuedate, CURRENT_DATE() ) AS not_issued_today |
| 90 |
FROM issues |
92 |
FROM issues |
| 91 |
LEFT JOIN items USING ( itemnumber ) |
93 |
LEFT JOIN items USING ( itemnumber ) |
|
Lines 175-180
while ( my $c = $sth->fetchrow_hashref() ) {
Link Here
|
| 175 |
GetMarcBiblio( $c->{biblionumber} ), |
177 |
GetMarcBiblio( $c->{biblionumber} ), |
| 176 |
GetFrameworkCode( $c->{biblionumber} ) |
178 |
GetFrameworkCode( $c->{biblionumber} ) |
| 177 |
), |
179 |
), |
|
|
180 |
lost => GetAuthorisedValueByCode( 'LOST', $c->{itemlost} ), |
| 178 |
borrower => { |
181 |
borrower => { |
| 179 |
surname => $c->{surname}, |
182 |
surname => $c->{surname}, |
| 180 |
firstname => $c->{firstname}, |
183 |
firstname => $c->{firstname}, |
| 181 |
- |
|
|