X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;ds=sidebyside;f=newmember.pl;h=d600f32583cd9d2bb1fb178df07aff1790acf996;hb=e27b19afdf030a5efae839064d899c15b232b2ae;hp=3c4092da1fd06c7445f65c5a562fee810d4403ab;hpb=28be0337c51ab245a2d75c3afde8fa3d2a526366;p=koha.git diff --git a/newmember.pl b/newmember.pl index 3c4092da1f..d600f32583 100755 --- a/newmember.pl +++ b/newmember.pl @@ -149,25 +149,33 @@ if ($ok == 0) { push(@inputsloop, \%line); } + #Get the fee + my $dbh = C4::Context->dbh; + my $sth = $dbh->prepare("SELECT enrolmentfee FROM categories WHERE categorycode = ?"); + $sth->execute($data{'categorycode'}); + my ($fee) = $sth->fetchrow; + $sth->finish; + $template->param(name => $name, bornum => $data{'borrowernumber'}, cardnum => $data{'cardnumber'}, memcat => $data{'categorycode'}, - area => $data{'area'}, - fee => $data{'fee'}, + fee => $fee, joindate => format_date($data{'joining'}), expdate => format_date($data{'expiry'}), - joinbranch => $data{'joinbranch'}, + branchcode => $data{'branchcode'}, ethnic => $ethnic, dob => format_date($data{'dateofbirth'}), sex => $sex, postal => $postal, home => $home, + zipcode => $data{'zipcode'}, + homezipcode => $data{'homezipcode'}, phone => $data{'phone'}, phoneday => $data{'phoneday'}, faxnumber => $data{'faxnumber'}, emailaddress => $data{'emailaddress'}, - textmessaging => $data{'textmessaging'}, + textmessaging => $data{'textmessaging'}, contactname => $data{'contactname'}, altphone => $data{'altphone'}, altrelationship => $data{'altrelationship'},