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