[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/misc overduenotices.pl,NONE,1.1
From: |
Chris Cormack |
Subject: |
[Koha-cvs] CVS: koha/misc overduenotices.pl,NONE,1.1 |
Date: |
Thu, 11 Sep 2003 15:37:09 -0700 |
Update of /cvsroot/koha/koha/misc
In directory sc8-pr-cvs1:/tmp/cvs-serv19516
Added Files:
overduenotices.pl
Log Message:
Committed on behalf of Stephen Hedges
This is a script for the use of printing, and emailing overdue notices.
The script must be run from the command line
Documentation is contained in the script
--- NEW FILE ---
#!/usr/bin/perl -w
#-----------------------------------
# Script Name: overduenotices.pl
# Script Version: 1.0
# Date: 2003/9/7
# Author: Stephen Hedges (address@hidden)
# Description:
# This script runs a Koha report of items that
# are between 7 and 30 days overdue and generates
# a file that may be dumped to a printer. The time period
# may be changed by editing the SQL statement handle
# prepared in line 52. The actual wording of the overdue
# notices may be changed by editing the $notice variable
# in line 101. The current notice text is formatted to
# fit the standard 34-line 'Speedimailer' form.
# Revision History:
# 1.0 2003/9/7: original version
#-----------------------------------
# Copyright 2003 Skemotah Solutions
#
# This file is part of Koha.
#
# Koha is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
# Foundation; either version 2 of the License, or (at your option) any later
# version.
#
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License along with
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
use strict;
print "This script will send overdue notices by e-mail and prepare a file
of\nnotices for printing if the borrower does not have e-mail.\nYou MUST edit
this script for your library BEFORE you run it for the first time!\nSee the
comments in the script for directions on changing the script.\n\nDo you wish to
continue? (y/n) ";
chomp($_ = <STDIN>);
die unless (/^y/i); # comment these lines out once you've made the changes
open OUTFILE, ">overdues" or die "Cannot open file overdues: $!";
use C4::Context;
use Mail::Sendmail; # comment out if not doing e-mail notices
# set the e-mail server -- comment out if not doing e-mail notices
unshift @{$Mail::Sendmail::mailcfg{'smtp'}} , 'alma.athenscounty.lib.oh.us';
# set your own mail server name here
my $dbh = C4::Context->dbh;
my $sth = $dbh->prepare ("SELECT
issues.borrowernumber,firstname,surname,streetaddress,physstreet,city,zipcode,emailaddress
FROM issues,borrowers WHERE returndate IS NULL AND
TO_DAYS(NOW())-TO_DAYS(date_due) BETWEEN 7 and 30 AND
issues.borrowernumber=borrowers.borrowernumber ORDER BY issues.borrowernumber");
my $first_borrno = $dbh->prepare ("SELECT borrowernumber FROM issues WHERE
returndate IS NULL AND TO_DAYS(NOW())-TO_DAYS(date_due) BETWEEN 7 and 30 ORDER
BY borrowernumber");
my $get_date = $dbh->prepare ("SELECT CURDATE()");
$get_date->execute;
my $daydate = $get_date->fetchrow_arrayref;
my $rawdate = $daydate->[0];
my @dates = split /-/, $rawdate; # split and reformat date
my $date = "$dates[1]/$dates[2]/$dates[0]";
$get_date->finish;
$first_borrno->execute; # get first borrowernumber
my $firstborr = $first_borrno->fetchrow_arrayref;
my $borrowernumber = $firstborr->[0];
$first_borrno->finish;
$sth->execute;
my $itemcount = 0;
my $row;
my $count = 0; # to keep track of how many notices are printed
my $e_count = 0; # and e-mailed
my ($firstname,$lastname,$address1,$address2,$city,$postcode,$email);
while ($row = $sth->fetchrow_arrayref) {
my $borrno = $row->[0];
if ($itemcount==0) { # store values for first borrower
$firstname = $row->[1];
$lastname = $row->[2];
$address1 = $row->[3];
$address2 = $row->[4];
unless ($address2) {
$address2 = '';
}
$city = $row->[5];
unless ($city) {
$city = '';
}
$postcode = $row->[6];
unless ($postcode) {
$postcode = '';
}
$email = $row->[7];
}
if ($borrno == $borrowernumber) { # next borrower yet?
$itemcount++;
next;
} else {
$borrowernumber = $borrno;
my $notice = "\n\n\n Athens County Library Services\n 95 W.
Washington Street\n Nelsonville, OH 45674\n\n\n $date\n\n
According to our records, you have $itemcount items that are at\n least a
week overdue for return to the library or renewal.\n If you have
registered a password with the library, you may use it\n and your library
card to login at http://koha.athenscounty.lib.oh.us\n to check the status
of your account, or you may call any of the\n Athens County public
libraries. (Athens: 592-4272;\n Nelsonville: 753-2118; The Plains:
797-4579; Albany: 698-3059;\n Glouster: 767-3670; Coolville: 667-3354;
and Chauncey: 797-2512)\n Please be advised that all library services
will be blocked\n if items are allowed to go more than 30 days
overdue.\n\n Thank you for using your public libraries.\n\n\n
$firstname $lastname\n
$address1\n
$address2\n $city
$postcode\n\n\n\n\n\n";
# if not using e-mail notices, comment out the following lines
if ($email) { # or you might check for borrowers.preferredcont
my %mail = ( To => $email,
From => 'address@hidden',
Subject => 'Overdue library items',
Message => $notice,
);
sendmail(%mail);
$e_count++
} else {
# if not using e-mail notices, comment out the above lines
print $notice;
print OUTFILE $notice;
$count++;
} # and comment this one out, too, if not using e-mail
$itemcount = 1; #start the count for next notice
$firstname = $row->[1]; # and store the new values
$lastname = $row->[2];
$address1 = $row->[3];
$address2 = $row->[4];
unless ($address2) {
$address2 = '';
}
$city = $row->[5];
unless ($city) {
$city = '';
}
$postcode = $row->[6];
unless ($postcode) {
$postcode = '';
}
$email = $row->[7];
}
}
$sth->finish;
close OUTFILE;
print "$e_count overdue notices e-mailed\n";
print "$count overdue notices in file for printing\n\n";
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/misc overduenotices.pl,NONE,1.1,
Chris Cormack <=