[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha boraccount.pl,1.4,1.5
From: |
Andrew Arensburger |
Subject: |
[Koha-cvs] CVS: koha boraccount.pl,1.4,1.5 |
Date: |
Sun, 13 Oct 2002 00:31:32 -0700 |
Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv3614
Modified Files:
boraccount.pl
Log Message:
Added magic RCS comment.
Removed trailing whitespace.
Index: boraccount.pl
===================================================================
RCS file: /cvsroot/koha/koha/boraccount.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** boraccount.pl 17 Sep 2002 15:08:43 -0000 1.4
--- boraccount.pl 13 Oct 2002 07:31:30 -0000 1.5
***************
*** 1,4 ****
--- 1,6 ----
#!/usr/bin/perl
+ # $Id$
+
#writen 11/1/2000 by address@hidden
#script to display borrowers account details
***************
*** 40,45 ****
#get account details
my %bor;
! $bor{'borrowernumber'}=$bornum;
! my ($numaccts,$accts,$total)=getboracctrecord('',\%bor);
my @accountrows; # this is for the tmpl-loop
--- 42,47 ----
#get account details
my %bor;
! $bor{'borrowernumber'}=$bornum;
! my ($numaccts,$accts,$total)=getboracctrecord('',\%bor);
my @accountrows; # this is for the tmpl-loop
***************
*** 67,71 ****
bornum => $bornum,
total => $total,
! accounts => address@hidden );
! print "Content-Type: text/html\n\n", $template->output;
\ No newline at end of file
--- 69,73 ----
bornum => $bornum,
total => $total,
! accounts => address@hidden );
! print "Content-Type: text/html\n\n", $template->output;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha boraccount.pl,1.4,1.5,
Andrew Arensburger <=