Bug fixes

This commit is contained in:
wolfpac444 2003-04-13 03:47:45 +00:00
parent 0a377febe0
commit 574e8e7b40
4 changed files with 11 additions and 14 deletions

View file

@ -89,7 +89,7 @@
<tr valign=top bgcolor=white>
<td COLSPAN=3><FONT SIZE=2><b>Postal Address*</b></FONT></td>
<td><FONT SIZE=2><b>Town*</b></FONT></td>
<td><FONT SIZE=2>Area</FONT></td>
<td><FONT SIZE=2>Joining Branch</FONT></td>
</tr>
<tr valign=top bgcolor=white>
<td COLSPAN=3><input type=text name=address size=40 value="<TMPL_VAR NAME=address>"></td>

View file

@ -32,8 +32,7 @@
E-mail: <a href="mailto:<TMPL_VAR NAME="emailaddress">"><TMPL_VAR NAME="emailaddress"></a><br>
Text messaging: <TMPL_VAR NAME="textmessaging"><p>
Membership Number: <TMPL_VAR NAME="borrowernumber"><BR>
Membership: <TMPL_VAR NAME="categorycode"><BR>
Area: <TMPL_VAR NAME="area"><BR>
Membership Category: <TMPL_VAR NAME="categorycode"><BR>
Fee:$30/year, Paid<BR>
Joined: <TMPL_VAR NAME="dateenrolled">, Expires: <TMPL_VAR NAME="expiry"><BR>
Joining Branch: <TMPL_VAR NAME="branchcode"><P>

View file

@ -42,15 +42,7 @@
<B>Membership Category</B>
</td>
<td>
<TMPL_VAR Name="membercat">
</td>
</tr>
<tr valign=top bgcolor="white" >
<td>
<B>Area </B>
</td>
<td>
<TMPL_VAR Name="area">
<TMPL_VAR Name="memcat">
</td>
</tr>
<tr valign=top bgcolor="white" >

View file

@ -149,12 +149,18 @@ 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'}),
branchcode => $data{'branchcode'},