-library <branchname> only deal with overdues from this library
-csv <filename> populate CSV file
-itemscontent <list of fields> item information in templates
- -v verbose ( use multiple times to increase verbosity )
=head1 OPTIONS
GetOptions(
'help|?' => \$help,
'man' => \$man,
- 'v+' => \$verbose,
+ 'v' => \$verbose,
'n' => \$nomail,
'max=s' => \$MAX,
'library=s' => \$mybranch,
) or pod2usage(2);
pod2usage(1) if $help;
pod2usage( -verbose => 2 ) if $man;
+
if ( defined $csvfilename && $csvfilename =~ /^-/ ) {
warn qq(using "$csvfilename" as filename, that seems odd);
}
push @borrower_parameters, $mindays, $maxdays;
my $sth = $dbh->prepare($borrower_sql);
$sth->execute(@borrower_parameters);
- ($verbose>1) and warn $borrower_sql . "\n\n ($mindays, $maxdays)\nreturns " . $sth->rows . " rows";
+ $verbose and warn $borrower_sql . "\n\n ($mindays, $maxdays)\nreturns " . $sth->rows . " rows";
while ( my ( $itemcount, $borrowernumber, $firstname, $lastname, $address1, $address2, $city, $postcode, $email ) = $sth->fetchrow ) {
- warn "borrower $firstname, $lastname ($borrowernumber) [ $email ] has $itemcount items overdue." if $verbose;
+ warn "borrower $firstname, $lastname ($borrowernumber) has $itemcount items overdue." if $verbose;
my $letter = C4::Letters::getletter( 'circulation', $overdue_rules->{"letter$i"} );
unless ($letter) {
{ letter => $letter,
borrowernumber => $borrowernumber,
message_transport_type => 'email',
- to_address => $email,
from_address => $admin_email_address,
}
);
message_transport_type => 'email',
attachments => [$attachment],
to_address => $admin_email_address,
- from_address => $admin_email_address,
}
);
}