[Koha-cvs] CVS: koha newmember.pl,1.10,1.11

[Mike Hansen]

Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv19554/koha

Modified Files:
	newmember.pl 
Log Message:
Bug fixes


Index: newmember.pl
===================================================================
RCS file: /cvsroot/koha/koha/newmember.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** newmember.pl	8 Apr 2003 12:34:15 -0000	1.10
--- newmember.pl	13 Apr 2003 03:47:45 -0000	1.11
***************
*** 150,159 ****
      }
  
      $template->param(name => $name,
  		     bornum => $data{'borrowernumber'},
  		     cardnum => $data{'cardnumber'},
  		     memcat => $data{'categorycode'},
! 		     area => $data{'area'},
! 		     fee => $data{'fee'},
  		     joindate => format_date($data{'joining'}),
  		     expdate => format_date($data{'expiry'}),
--- 150,165 ----
      }
  
+     #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'},
! 		     fee => $fee,
  		     joindate => format_date($data{'joining'}),
  		     expdate => format_date($data{'expiry'}),