[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha member.pl,1.5,1.6
From: |
Andrew Arensburger |
Subject: |
[Koha-cvs] CVS: koha member.pl,1.5,1.6 |
Date: |
Sun, 13 Oct 2002 00:33:00 -0700 |
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv3940
Modified Files:
member.pl
Log Message:
Added magic RCS comment.
Removed trailing whitespace.
Index: member.pl
===================================================================
RCS file: /cvsroot/koha/koha/member.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** member.pl 10 Oct 2002 05:49:52 -0000 1.5
--- member.pl 13 Oct 2002 07:32:58 -0000 1.6
***************
*** 1,4 ****
--- 1,6 ----
#!/usr/bin/perl
+ # $Id$
+
#script to do a borrower enquiery/brin up borrower details etc
#written 20/12/99 by address@hidden
***************
*** 34,38 ****
my %tmpldata = pathtotemplate ( template => 'member.tmpl', theme => $theme,
language => 'fi' );
# FIXME - Error-checking
! my $template = HTML::Template->new( filename => $tmpldata{'path'},
die_on_bad_params => 0,
loop_context_vars => 1 );
--- 36,40 ----
my %tmpldata = pathtotemplate ( template => 'member.tmpl', theme => $theme,
language => 'fi' );
# FIXME - Error-checking
! my $template = HTML::Template->new( filename => $tmpldata{'path'},
die_on_bad_params => 0,
loop_context_vars => 1 );
***************
*** 67,70 ****
member => $member,
resultsloop => address@hidden );
!
print "Content-Type: text/html\n\n", $template->output;
--- 69,72 ----
member => $member,
resultsloop => address@hidden );
!
print "Content-Type: text/html\n\n", $template->output;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha member.pl,1.5,1.6,
Andrew Arensburger <=