[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha overdue.pl,1.4,1.5
From: |
Andrew Arensburger |
Subject: |
[Koha-cvs] CVS: koha overdue.pl,1.4,1.5 |
Date: |
Sun, 13 Oct 2002 00:34:19 -0700 |
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv4296
Modified Files:
overdue.pl
Log Message:
Added magic RCS comment.
Removed trailing whitespace.
Index: overdue.pl
===================================================================
RCS file: /cvsroot/koha/koha/overdue.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** overdue.pl 5 Oct 2002 09:46:18 -0000 1.4
--- overdue.pl 13 Oct 2002 07:34:17 -0000 1.5
***************
*** 1,4 ****
--- 1,5 ----
#!/usr/bin/perl
+ # $Id$
# Copyright 2000-2002 Katipo Communications
***************
*** 30,34 ****
my $theme = $input->param('theme'); # only used if allowthemeoverride is set
my %tmpldata = pathtotemplate ( template => 'overdue.tmpl', theme => $theme);
! my $template = HTML::Template->new( filename => $tmpldata{'path'},
die_on_bad_params => 0);
my $duedate;
--- 31,35 ----
my $theme = $input->param('theme'); # only used if allowthemeoverride is set
my %tmpldata = pathtotemplate ( template => 'overdue.tmpl', theme => $theme);
! my $template = HTML::Template->new( filename => $tmpldata{'path'},
die_on_bad_params => 0);
my $duedate;
***************
*** 58,62 ****
$bornum=$data->{'borrowernumber'};
$itemnum=$data->{'itemnumber'};
!
my $query="select concat(firstname,' ',surname),phone,emailaddress from
borrowers where borrowernumber='$bornum'";
my $sth1=$dbh->prepare($query);
--- 59,63 ----
$bornum=$data->{'borrowernumber'};
$itemnum=$data->{'itemnumber'};
!
my $query="select concat(firstname,' ',surname),phone,emailaddress from
borrowers where borrowernumber='$bornum'";
my $sth1=$dbh->prepare($query);
***************
*** 102,105 ****
todaysdate => $todaysdate,
overdueloop => address@hidden );
!
print "Content-Type: text/html\n\n", $template->output;
--- 103,106 ----
todaysdate => $todaysdate,
overdueloop => address@hidden );
!
print "Content-Type: text/html\n\n", $template->output;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha overdue.pl,1.4,1.5,
Andrew Arensburger <=