d8bbc4ec5c
fines.pl will levy fines and place them on patrons accounts, it will also then attempt to notify the borrowers. Either by email, sms, fax etc depending on what the patron has set as preferred contact. Email and letters are currently working fine, fax, and sms need to be worked on. Test with caution in your library, you dont want to be bombarding patrons with emails :)
73 lines
2.1 KiB
Perl
Executable file
73 lines
2.1 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# Display a history of attempts to contact this borrower
|
|
# regarding overdues and fines.
|
|
#
|
|
# Tony McCrae
|
|
# tony@katipo.co.nz 5/July/2003
|
|
# 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., 59 Temple Place,
|
|
# Suite 330, Boston, MA 02111-1307 USA
|
|
|
|
#use lib ('/usr/local/koha/intranet/modules');
|
|
use strict;
|
|
use CGI;
|
|
use HTML::Template;
|
|
use C4::Database;
|
|
use C4::Search;
|
|
use C4::Circulation::Circ2;
|
|
use C4::Circulation::Fines;
|
|
|
|
use Data::Dumper;
|
|
|
|
my $input = new CGI;
|
|
my $bornum = $input->param('bornum');
|
|
my $date= $input->param('date');
|
|
my $edate=$input->param('edate');
|
|
print $input->header;
|
|
if ($bornum) {
|
|
my $borrower = BorType($bornum);
|
|
|
|
|
|
my $querystring = " select date, method, address, result, message, borrowernumber
|
|
from attempted_contacts
|
|
where date >= ? and date < ?
|
|
";
|
|
|
|
|
|
my $dbh=C4Connect();
|
|
my $sth=$dbh->prepare($querystring);
|
|
$sth->execute($date,$edate);
|
|
|
|
while (my $row=$sth->fetchrow_hashref()) {
|
|
print "<a href=/cgi-bin/koha/moremember.pl?bornum=$row->{'borrowernumber'}>Borrwer Record</a> ";
|
|
if ($row->{'method'} ne 'email'){
|
|
my $tidydate=$row->{'date'};
|
|
$tidydate=~ s/ /%20/g;
|
|
print " <a href=/cgi-bin/koha/printnote.pl?bornum=$row->{'borrowernumber'}&date=$tidydate>Print Note</a><br>";
|
|
}
|
|
print $row->{'date'}."<br>\n";
|
|
print $row->{'method'}."<br>\n";
|
|
print $row->{'address'}."<br>\n";
|
|
print $row->{'result'}."<br>\n";
|
|
print $row->{'message'}."<br>\n";
|
|
print "<p><p>";
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|