Lines 40-45
use C4::Dates qw/format_date/;
Link Here
|
40 |
use C4::Debug; |
40 |
use C4::Debug; |
41 |
use C4::Letters; |
41 |
use C4::Letters; |
42 |
use C4::Overdues qw(GetFine); |
42 |
use C4::Overdues qw(GetFine); |
|
|
43 |
use C4::Members; |
43 |
|
44 |
|
44 |
=head1 NAME |
45 |
=head1 NAME |
45 |
|
46 |
|
Lines 445-451
END_SQL
Link Here
|
445 |
# <date> <itemcount> <firstname> <lastname> <address1> <address2> <address3> <city> <postcode> |
446 |
# <date> <itemcount> <firstname> <lastname> <address1> <address2> <address3> <city> <postcode> |
446 |
|
447 |
|
447 |
my $borrower_sql = <<'END_SQL'; |
448 |
my $borrower_sql = <<'END_SQL'; |
448 |
SELECT distinct(issues.borrowernumber), firstname, surname, address, address2, city, zipcode, country, email |
449 |
SELECT distinct(issues.borrowernumber), firstname, surname, address, address2, city, zipcode, country |
449 |
FROM issues,borrowers,categories |
450 |
FROM issues,borrowers,categories |
450 |
WHERE issues.borrowernumber=borrowers.borrowernumber |
451 |
WHERE issues.borrowernumber=borrowers.borrowernumber |
451 |
AND borrowers.categorycode=categories.categorycode |
452 |
AND borrowers.categorycode=categories.categorycode |
Lines 474-484
END_SQL
Link Here
|
474 |
$verbose and warn $borrower_sql . "\n $branchcode | " . $overdue_rules->{'categorycode'} . "\n ($mindays, $maxdays)\nreturns " . $sth->rows . " rows"; |
475 |
$verbose and warn $borrower_sql . "\n $branchcode | " . $overdue_rules->{'categorycode'} . "\n ($mindays, $maxdays)\nreturns " . $sth->rows . " rows"; |
475 |
|
476 |
|
476 |
while ( my ( $borrowernumber, $firstname, $lastname, |
477 |
while ( my ( $borrowernumber, $firstname, $lastname, |
477 |
$address1, $address2, $city, $postcode, $country, $email |
478 |
$address1, $address2, $city, $postcode, $country |
478 |
) = $sth->fetchrow ) |
479 |
) = $sth->fetchrow ) |
479 |
{ |
480 |
{ |
480 |
$verbose and warn "borrower $firstname, $lastname ($borrowernumber) has items triggering level $i."; |
481 |
$verbose and warn "borrower $firstname, $lastname ($borrowernumber) has items triggering level $i."; |
481 |
|
482 |
|
|
|
483 |
# Try to get the borrower's email address |
484 |
my $email = GetPrimaryEmailAddress($borrowernumber); |
485 |
|
482 |
if ( $overdue_rules->{"debarred$i"} ) { |
486 |
if ( $overdue_rules->{"debarred$i"} ) { |
483 |
|
487 |
|
484 |
#action taken is debarring |
488 |
#action taken is debarring |
485 |
- |
|
|