gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add missing to and from email addresses to user and admin EnqueueLetter calls, respectively. Add extra level to verbosity. 

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Southeastern University 2008-08-07 21:38:06 -04:00 committed by Joshua Ferraro
parent ecb43a165c
commit 67f229cba7
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
misc/cronjobs/overdue_notices.pl
View File

@ -53,6 +53,7 @@ overdue_notices.pl [ -n ] [ -library <branchcode> ] [ -max <number of days> ] [
-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
@ -218,7 +219,7 @@ my $itemscontent = join( ',', qw( issuedate title barcode author ) );
GetOptions(
'help|?' => \$help,
'man' => \$man,
'v' => \$verbose,
'v+' => \$verbose,
'n' => \$nomail,
'max=s' => \$MAX,
'library=s' => \$mybranch,
@ -227,7 +228,6 @@ GetOptions(
) 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);
}
@ -339,10 +339,10 @@ END_SQL
push @borrower_parameters, $mindays, $maxdays;
my $sth = $dbh->prepare($borrower_sql);
$sth->execute(@borrower_parameters);
$verbose and warn $borrower_sql . "\n\n ($mindays, $maxdays)\nreturns " . $sth->rows . " rows";
($verbose>1) 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) has $itemcount items overdue." if $verbose;
warn "borrower $firstname, $lastname ($borrowernumber) [ $email ] has $itemcount items overdue." if $verbose;
my $letter = C4::Letters::getletter( 'circulation', $overdue_rules->{"letter$i"} );
unless ($letter) {
@ -409,6 +409,7 @@ END_SQL
{ letter => $letter,
borrowernumber => $borrowernumber,
message_transport_type => 'email',
to_address => $email,
from_address => $admin_email_address,
}
);
@ -464,6 +465,7 @@ END_SQL
message_transport_type => 'email',
attachments => [$attachment],
to_address => $admin_email_address,
from_address => $admin_email_address,
}
);
}