#!/usr/bin/perl # This script loops through each overdue item, determines the fine, # and updates the total amount of fines due by each user. It relies on # the existence of /tmp/fines, which is created by ??? # Doesnt really rely on it, it relys on being able to write to /tmp/ # It creates the fines file # # This script is meant to be run nightly out of cron. # Copyright 2000-2002 Katipo Communications # # 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., # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. # $Id: sendoverdues.pl,v 1.1.2.1 2007/03/26 22:38:09 tgarip1957 Exp $ #use strict; #use warnings; FIXME - Bug 2505 BEGIN { # find Koha's Perl modules # test carefully before changing this use FindBin; eval { require "$FindBin::Bin/../kohalib.pl" }; } use C4::Context; use C4::Search; use C4::Circulation; use C4::Circulation::Fines; use C4::Members; use C4::Dates qw/format_date/; use HTML::Template::Pro; use Mail::Sendmail; use Mail::RFC822::Address; use C4::SMS; use utf8; my ($res,$ua);##variables for SMS my $date=get_today(); my $dbh = C4::Context->dbh; notifyOverdues(); sub notifyOverdues { # Look up the overdues for today. # Capture overdues which fall on our dates of interest. #################################################################################################### # Creating a big hash of available templates my %email; %email->{'template'}='email-2.txt'; my %sms; %sms->{'template'}='sms-2.txt'; my %firstReminder->{'email'} = \%email; %firstReminder->{'sms'} = \%sms; my %email2; %email2->{'template'}='email-7.txt'; my %secondReminder->{'email'} = \%email2; my %sms2; %sms2->{'template'}='sms-7.txt'; %secondReminder->{'sms'} = \%sms2; my %letter2; %letter2->{'template'}='letter-7.html'; %secondReminder->{'letter'} = \%letter2; my %email3; %email3->{'template'}='email-29.txt'; my %sms3; %sms3->{'template'}='sms-29.txt'; my %letter3; %letter3->{'template'}='letter-29.html'; my %finalReminder->{'email'} = \%email3; %finalReminder->{'letter'} = \%letter3; %finalReminder->{'sms'} = \%sms3; my %actions; %actions->{'1'}=\%firstReminder; %actions->{'3'}=\%secondReminder;###This was 7 days changed to 3 days %actions->{'20'}=\%finalReminder;###This was 29 days changed to 20 days ################################################################################################################## my @overdues2;#an array for each actiondate my @overdues7; my @overdues29; my $filename; # Retrieve an array of overdues. my ($count, $overduesReference) = Getoverdues(); my @overdues=@$overduesReference; # We're going to build a hash of arrays, containing the items requiring action. # ->borrowernumber, date, @overdues my %actionItems; foreach my $overdue (@overdues) { my $due_day=$overdue->{'date_due'}; my $difference=DATE_subtract($date,$due_day); # If does this item fall on a day of interest? $overdue->{'difference'}=$difference; foreach my $actiondate (keys(%actions)) { if ($actiondate == $difference) { $filename='overdues'.$actiondate; push @$$filename,$overdue; #print "$actiondate,-,$overdue->{borrowernumber}\n"; } $actionItems{$actiondate} = \@$$filename; } } # We now have a hash containing overdues which need actioning, we can step through each set. # Work from earilest to latest. We only wish to send the most urgent message. my %messages; my %borritem; foreach my $actiondate (keys %actions) { # print "\n\nThe following items are $actiondate days overdue.\n"; my $items = $actionItems{$actiondate}; $filename='overdues'.$actiondate; foreach my $overdue (@$$filename) { # Detemine which borrower is responsible for this overdue; # if the offender is a child, then the guarantor is the person to notify my $borrowernumber=$overdue->{borrowernumber}; my $borrower=responsibleBorrower($borrowernumber); my ($method, $address) = preferedContactMethod($borrower); if ($method && $address) { # Do we have to send something, using this method on this day? if (%actions->{$actiondate}->{$method}->{'template'}) { my $intranetdir=C4::Context->config('intranetdir'); # Template the message my $template = HTML::Template::Pro->new(filename => $intranetdir.'/scripts/misc/notifys/templates/'.%actions->{$actiondate}->{$method}->{'template'}, die_on_bad_params => 0); my @bookdetails; my %row_data; my $item = getiteminformation("", $overdue->{'itemnumber'}); $row_data{'BARCODE'}=$item->{'barcode'}; my $title=substr($item->{'title'},0,25)."..."; $title=changecharacter($title); $row_data{'TITLE'}=$title; $row_data{'DATE_DUE'}=format_date($overdue->{'date_due'}); $row_data{'cardnumber'}=$borrower->{'cardnumber'}; push(@bookdetails, \%row_data); $template->param(BOOKDETAILS => \@bookdetails); my $name= "$borrower->{'firstname'} $borrower->{'surname'}"; $template->param(NAME=> $name); %messages->{$borrower->{'borrowernumber'}} = $template->output(); if ($method eq 'email') { $result = sendEmail($address, 'library@library.neu.edu.tr', 'Overdue Library Items', %messages->{$borrowernumber}); logContact($borrowernumber, $method, $address, $result, %messages->{$borrowernumber}); } elsif ($method eq 'sms') { $result = sendSMS($address, %messages->{$borrowernumber}); logContact($borrowernumber, $method, $address, $result, %messages->{$borrowernumber}); } elsif ($method eq 'letter') { $result = printLetter($address, %messages->{$borrowernumber}); } }##template exists }else{ print "$borrowernumber has an overdue item, but no means of contact\n"; }##$method } #end of 'foreach overdue' } # end of foreach actiondate } sub responsibleBorrower { # Given an overdue item, return the details of the borrower responible as a hash of database columns. my $borrowernumber=shift; if ($borrowernumber) { my $borrower=BorType($borrowernumber); # Overdue books assigned to children have notices sent to the guarantor. if ($borrower->{'categorycode'} eq 'C') { my $guarantor=BorType($borrower->{'guarantor'}); $borrower = $guarantor; } return $borrower; } } sub preferedContactMethod { # Given a reference to borrower details, in the format # returned by BorType(), determine the prefered contact method, and address to use. my $borrower=$_[0]; my $borrcat = getborrowercategoryinfo($borrower->{'categorycode'}); if( !$borrcat->{'overduenoticerequired'}){ return (undef,undef); } my $method=''; my $address=''; ## if borrower has a phone set that as our preferrred contact if ($borrower->{'phoneday'}) { if (parse_phone($borrower->{phoneday})){ $address = parse_phone($borrower->{phoneday}); $method="sms"; return ($method, $address); } } if (($borrower->{'emailaddress'}) and (Mail::RFC822::Address::valid($borrower->{'emailaddress'}))) { $address = $borrower->{'emailaddress'}; $method="email"; return ($method, $address); } if ($borrower->{'streetaddress'}) { $address = mailingAddress($borrower); $method = 'letter'; } #print "$method, $address\n"; return ($method, $address); } sub logContact { # Given the details of an attempt to contact a borrower, # log them in the attempted_contacts table of the koha database. my ($borrowernumber, $method, $address, $result, $message) = @_; my $querystring = " insert into attempted_contacts (borrowernumber, method, address, result, message, date) values (?, ?, ?, ?, ?, now())"; my $sth= $dbh->prepare($querystring); $sth->execute($borrowernumber, $method, $address, $result, $message); $sth->finish(); } sub mailingAddress { # Given a hash of borrower information, such as that returned by BorType, # return a mailing address. my $borrower=$_[0]; my $address = $borrower->{'firstname'}."\n". $borrower->{'streetaddress'}."\n". $borrower->{'streetcity'}; return $address; } sub sendEmail { # Given an email address, and a subject and message, attempt to send email. my $to=$_[0]; my $from=$_[1]; my $subject=$_[2]; my $message=$_[3]; # print "in email area"; # print "\nSending Email To: $to\n$message\n"; my %mail = ( To => $to, CC => 'library@library.neu.edu.tr', From => $from, Subject => $subject, Message => $message); if (not(sendmail %mail)) { warn $Mail::Sendmail::error; warn "sendEmail to $to failed."; return 0; } return 1; } sub sendSMS { my ($phone, $message)=@_; ($res,$ua)=get_sms_auth() unless $res; # Given a cell number and a message, attempt to send an SMS message. my $sendresult=send_sms($ua,$phone,$message,$res->{pSessionId}); my $error=error_codes($sendresult->{pErrCode}); return 1 unless $error; return $error; } sub printLetter { print "letter\n"; # Print a letter # FIXME - decide where to print return 1; } sub changecharacter { my ($string)=@_; $_=$string; s/ş/s/g; s/Ş/S/g; s/ü/u/g; s/Ü/U/g; s/ç/c/g; s/Ç/C/g; s/ö/o/g; s/Ö/O/g; s/ı/i/g; s/İ/I/g; s/ğ/g/g; s/Ğ/G/g; $string=$_; return $string; } $dbh->disconnect();