|
Lines 69-76
BEGIN {
Link Here
|
| 69 |
&GetBorrowersToExpunge |
69 |
&GetBorrowersToExpunge |
| 70 |
|
70 |
|
| 71 |
&IssueSlip |
71 |
&IssueSlip |
| 72 |
|
|
|
| 73 |
GetOverduesForPatron |
| 74 |
); |
72 |
); |
| 75 |
|
73 |
|
| 76 |
#Modify data |
74 |
#Modify data |
|
Lines 1190-1214
WHERE borrowernumber = 0 AND DATEDIFF( NOW(), timestamp ) > ?|;
Link Here
|
| 1190 |
return $cnt eq '0E0'? 0: $cnt; |
1188 |
return $cnt eq '0E0'? 0: $cnt; |
| 1191 |
} |
1189 |
} |
| 1192 |
|
1190 |
|
| 1193 |
sub GetOverduesForPatron { |
|
|
| 1194 |
my ( $borrowernumber ) = @_; |
| 1195 |
|
| 1196 |
my $sql = " |
| 1197 |
SELECT * |
| 1198 |
FROM issues, items, biblio, biblioitems |
| 1199 |
WHERE items.itemnumber=issues.itemnumber |
| 1200 |
AND biblio.biblionumber = items.biblionumber |
| 1201 |
AND biblio.biblionumber = biblioitems.biblionumber |
| 1202 |
AND issues.borrowernumber = ? |
| 1203 |
AND date_due < NOW() |
| 1204 |
"; |
| 1205 |
|
| 1206 |
my $sth = C4::Context->dbh->prepare( $sql ); |
| 1207 |
$sth->execute( $borrowernumber ); |
| 1208 |
|
| 1209 |
return $sth->fetchall_arrayref({}); |
| 1210 |
} |
| 1211 |
|
| 1212 |
END { } # module clean-up code here (global destructor) |
1191 |
END { } # module clean-up code here (global destructor) |
| 1213 |
|
1192 |
|
| 1214 |
1; |
1193 |
1; |