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');
34 my $borrowernumber = $input->param('borrowernumber');
35 my $date= $input->param('date');
37 if ($borrowernumber) {
38 my $borrower = BorType($borrowernumber);
40 my $querystring = "select * from borrowers where borrowernumber = ?";
41 my $sth=$dbh->prepare($querystring);
42 $sth->execute($borrowernumber);
43 my $row=$sth->fetchrow_hashref();
44 # print "<body background=/images/letterhead.jpg> <p> <p> <p>";
49 <style type=\"text/css\">
68 print "<img src=\"/images/letterhead.jpg\"><br>";
69 print "<p> <p> <p>\n ";
70 print "<div class=\"content\">$row->{'firstname'} $row->{'surname'}<br>
71 $row->{'streetaddress'}<br>
72 $row->{'city'}<p> <p>";
75 $querystring = " select date, method, address, result, message, borrowernumber
76 from attempted_contacts
77 where date = ? and borrowernumber= ?
82 $sth=$dbh->prepare($querystring);
83 $sth->execute($date,$borrowernumber);
85 $row=$sth->fetchrow_hashref();
86 # print $row->{'date'}."<br>\n";
87 # print $row->{'method'}."<br>\n";
88 # print $row->{'address'}."<br>\n";
89 # print $row->{'result'}."<br>\n";
90 print $row->{'message'}."<br>\n";
93 #print $querystring,$date,$borrowernumber;