[Koha-cvs] CVS: koha/misc/notifys printnote.pl,NONE,1.1

Fri Mar 5 22:23:34 CET 2004

Update of /cvsroot/koha/koha/misc/notifys
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2157

Added Files:
	printnote.pl 
Log Message:
Little script to format a letter for printing to be sent to a borrower with overdue items

--- NEW FILE ---
#!/usr/bin/perl

# Display a history of attempts to contact this borrower
# regarding overdues and fines.
#
# Tony McCrae
# tony at 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');
print $input->header;
if ($bornum) {
	my $borrower = BorType($bornum);
	my $dbh=C4Connect();    
        my $querystring = "select * from borrowers where borrowernumber = ?";
	my $sth=$dbh->prepare($querystring);
	$sth->execute($bornum);    
       my $row=$sth->fetchrow_hashref();
#     print "<body background=/images/letterhead.jpg> <p> <p> <p>";
    print "
  <html>
  <head>
  <title></title>
  <style type=\"text/css\">
  body {
      padding:0
	margin:0
	}
.content {
    padding-left:30px;
    padding-right:20px
      }

@ media print {
    .content {
	padding-left:20px;
	padding-right:20px
	  }
    }
</style>
  </head>
  <body>";
    print "<img src=\"/images/letterhead.jpg\"><br>";
    print "<p> &nbsp; <p> &nbsp; <p>\n ";
    print "<div class=\"content\">$row->{'firstname'} $row->{'surname'}<br>
    $row->{'streetaddress'}<br>
    $row->{'city'}<p> &nbsp; <p>";
        $sth->finish();

	$querystring = "	select	date, method, address, result, message, borrowernumber
					from attempted_contacts
        where date = ? and borrowernumber= ?
					";

	$sth=$dbh->prepare($querystring);
	$sth->execute($date,$bornum);

	$row=$sth->fetchrow_hashref();
#		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>";

#print $querystring,$date,$bornum;
	}