3 # Display a history of attempts to contact this borrower
4 # regarding overdues and fines.
7 # tony@katipo.co.nz 5/July/2003
8 # Copyright 2000-2002 Katipo Communications
10 # This file is part of Koha.
12 # Koha is free software; you can redistribute it and/or modify it under the
13 # terms of the GNU General Public License as published by the Free Software
14 # Foundation; either version 2 of the License, or (at your option) any later
17 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
18 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
19 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
21 # You should have received a copy of the GNU General Public License along with
22 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
23 # Suite 330, Boston, MA 02111-1307 USA
25 #use lib ('/usr/local/koha/intranet/modules');
31 use C4::Circulation::Circ2;
32 use C4::Circulation::Fines;
37 my $bornum = $input->param('bornum');
38 my $date= $input->param('date');
41 my $borrower = BorType($bornum);
43 my $querystring = "select * from borrowers where borrowernumber = ?";
44 my $sth=$dbh->prepare($querystring);
45 $sth->execute($bornum);
46 my $row=$sth->fetchrow_hashref();
47 # print "<body background=/images/letterhead.jpg> <p> <p> <p>";
52 <style type=\"text/css\">
71 print "<img src=\"/images/letterhead.jpg\"><br>";
72 print "<p> <p> <p>\n ";
73 print "<div class=\"content\">$row->{'firstname'} $row->{'surname'}<br>
74 $row->{'streetaddress'}<br>
75 $row->{'city'}<p> <p>";
78 $querystring = " select date, method, address, result, message, borrowernumber
79 from attempted_contacts
80 where date = ? and borrowernumber= ?
85 $sth=$dbh->prepare($querystring);
86 $sth->execute($date,$bornum);
88 $row=$sth->fetchrow_hashref();
89 # print $row->{'date'}."<br>\n";
90 # print $row->{'method'}."<br>\n";
91 # print $row->{'address'}."<br>\n";
92 # print $row->{'result'}."<br>\n";
93 print $row->{'message'}."<br>\n";
96 #print $querystring,$date,$bornum;