[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'}),