[Koha-cvs] koha/members mancredit.pl
Joshua Ferraro
jmf at liblime.com
Tue Mar 20 02:45:19 CET 2007
CVSROOT: /sources/koha
Module name: koha
Changes by: Joshua Ferraro <kados> 07/03/20 01:45:18
Modified files:
members : mancredit.pl
Log message:
adding name for template
re-tabing
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/members/mancredit.pl?cvsroot=koha&r1=1.6&r2=1.7
Patches:
Index: mancredit.pl
===================================================================
RCS file: /sources/koha/koha/members/mancredit.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- mancredit.pl 9 Mar 2007 23:30:17 -0000 1.6
+++ mancredit.pl 20 Mar 2007 01:45:18 -0000 1.7
@@ -31,11 +31,12 @@
use C4::Accounts;
my $input=new CGI;
-
my $borrowernumber=$input->param('borrowernumber');
+
#get borrower details
my $data=borrdata('',$borrowernumber);
my $add=$input->param('add');
+
if ($add){
my $itemnum=$input->param('itemnum');
my $desc=$input->param('desc');
@@ -53,7 +54,11 @@
flagsrequired => {borrowers => 1},
debug => 1,
});
- $template->param( borrowernumber => $borrowernumber);
+ $template->param(
+ borrowernumber => $borrowernumber,
+ firstname => $data->{'firstname'},
+ surname => $data->{'surname'},
+ );
print $input->header(
-type => guesstype($template->output),
-cookie => $cookie
More information about the Koha-cvs
mailing list