From 0d87fe20969afec038121708559ebabf6c5a54d5 Mon Sep 17 00:00:00 2001 From: kados Date: Tue, 20 Mar 2007 01:45:18 +0000 Subject: [PATCH] adding name for template re-tabing --- members/mancredit.pl | 23 ++++++++++++++--------- 1 file changed, 14 insertions(+), 9 deletions(-) diff --git a/members/mancredit.pl b/members/mancredit.pl index 9739cee8bf..2b2b869ba9 100755 --- a/members/mancredit.pl +++ b/members/mancredit.pl @@ -31,19 +31,20 @@ use C4::Members; 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'); - my $amount=$input->param('amount'); - $amount = -$amount; - my $type=$input->param('type'); - manualinvoice($borrowernumber,$itemnum,$desc,$type,$amount); - print $input->redirect("/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber"); + my $itemnum=$input->param('itemnum'); + my $desc=$input->param('desc'); + my $amount=$input->param('amount'); + $amount = -$amount; + my $type=$input->param('type'); + manualinvoice($borrowernumber,$itemnum,$desc,$type,$amount); + print $input->redirect("/cgi-bin/koha/members/boraccount.pl?borrowernumber=$borrowernumber"); } else { my ($template, $loggedinuser, $cookie) = get_template_and_user({template_name => "members/mancredit.tmpl", @@ -53,7 +54,11 @@ if ($add){ 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 -- 2.39.5