Lines 350-356
if ( defined $csvfilename ) {
Link Here
|
350 |
} else { |
350 |
} else { |
351 |
open $csv_fh, ">", $csvfilename or die "unable to open $csvfilename: $!"; |
351 |
open $csv_fh, ">", $csvfilename or die "unable to open $csvfilename: $!"; |
352 |
} |
352 |
} |
353 |
if ( $csv->combine(qw(name surname address1 address2 zipcode city country email itemcount itemsinfo)) ) { |
353 |
if ( $csv->combine(qw(name surname address1 address2 zipcode city email itemcount itemsinfo)) ) { |
354 |
print $csv_fh $csv->string, "\n"; |
354 |
print $csv_fh $csv->string, "\n"; |
355 |
} else { |
355 |
} else { |
356 |
$verbose and warn 'combine failed on argument: ' . $csv->error_input; |
356 |
$verbose and warn 'combine failed on argument: ' . $csv->error_input; |
Lines 445-451
END_SQL
Link Here
|
445 |
# <date> <itemcount> <firstname> <lastname> <address1> <address2> <address3> <city> <postcode> |
445 |
# <date> <itemcount> <firstname> <lastname> <address1> <address2> <address3> <city> <postcode> |
446 |
|
446 |
|
447 |
my $borrower_sql = <<'END_SQL'; |
447 |
my $borrower_sql = <<'END_SQL'; |
448 |
SELECT distinct(issues.borrowernumber), firstname, surname, address, address2, city, zipcode, country, email |
448 |
SELECT distinct(issues.borrowernumber), firstname, surname, address, address2, city, zipcode, email |
449 |
FROM issues,borrowers,categories |
449 |
FROM issues,borrowers,categories |
450 |
WHERE issues.borrowernumber=borrowers.borrowernumber |
450 |
WHERE issues.borrowernumber=borrowers.borrowernumber |
451 |
AND borrowers.categorycode=categories.categorycode |
451 |
AND borrowers.categorycode=categories.categorycode |
Lines 474-480
END_SQL
Link Here
|
474 |
$verbose and warn $borrower_sql . "\n $branchcode | " . $overdue_rules->{'categorycode'} . "\n ($mindays, $maxdays)\nreturns " . $sth->rows . " rows"; |
474 |
$verbose and warn $borrower_sql . "\n $branchcode | " . $overdue_rules->{'categorycode'} . "\n ($mindays, $maxdays)\nreturns " . $sth->rows . " rows"; |
475 |
|
475 |
|
476 |
while ( my ( $borrowernumber, $firstname, $lastname, |
476 |
while ( my ( $borrowernumber, $firstname, $lastname, |
477 |
$address1, $address2, $city, $postcode, $country, $email |
477 |
$address1, $address2, $city, $postcode, $email |
478 |
) = $sth->fetchrow ) |
478 |
) = $sth->fetchrow ) |
479 |
{ |
479 |
{ |
480 |
$verbose and warn "borrower $firstname, $lastname ($borrowernumber) has items triggering level $i."; |
480 |
$verbose and warn "borrower $firstname, $lastname ($borrowernumber) has items triggering level $i."; |
481 |
- |
|
|