From 3bd70a02eaf3e1368023a909554562a04c65f078 Mon Sep 17 00:00:00 2001
From: chris <chris>
Date: Fri, 17 Mar 2000 00:13:52 +0000
Subject: [PATCH] fixing alt info

---
 C4/Stats.pm    |  2 +-
 memberentry.pl | 30 +++++++++++++++++++++++++-----
 2 files changed, 26 insertions(+), 6 deletions(-)

diff --git a/C4/Stats.pm b/C4/Stats.pm
index 306c35f..a3627e7 100644
--- a/C4/Stats.pm
+++ b/C4/Stats.pm
@@ -60,7 +60,7 @@ sub UpdateStats {
   my $sth=$dbh->prepare("Insert into statistics
      (datetime,branch,type,usercode,value,other,itemnumber) 
      values (now(),'$branch',
-     '$type','$user','$amount','$other','$itemnumber')");
+     '$type','$user','$amount','$other','$itemnum')");
   $sth->execute;
   $sth->finish;
   $dbh->disconnect;
diff --git a/memberentry.pl b/memberentry.pl
index de98c9f..5f84a77 100755
--- a/memberentry.pl
+++ b/memberentry.pl
@@ -314,10 +314,30 @@ print <<printend
 <td   COLSPAN=3 ><input type=text name=contactname size=40 value="$data->{'contactname'}"></td>
 <td><input type=text name=altphone size=20 value="$data->{'altphone'}"></td>
 <td><select name=altrelationship size=1>
-<option value="workplace">Workplace
-<option value="relative">Relative
-<option value="friend">Friend
-<option value="neighbour">Neighbour
+<option value="workplace"
+printend
+;
+if ($data->{'altrelationship'} eq 'workplace'){
+  print " selected ";
+}
+
+print ">Workplace
+<option value=\"relative\"";
+if ($data->{'altrelationship'} eq 'relative'){
+  print " selected ";
+}
+print ">Relative
+<option value=\"friend\"";
+if ($data->{'altrelationship'} eq 'workplace'){
+  print " selected ";
+}
+print ">Friend
+<option value=\"neighbour\"";
+if ($data->{'altrelationship'} eq 'workplace'){
+  print " selected ";
+}
+print <<printend
+>Neighbour
 </select></td></tr>
 
 <tr valign=top bgcolor=white>
@@ -333,7 +353,7 @@ print <<printend
 <tr valign=top bgcolor=white>
 
 <td><FONT SIZE=2>Notes</font></td>
-<td  COLSPAN=4><textarea name=altnotes wrap=physical cols=70 rows=3></textarea></td></tr>
+<td  COLSPAN=4><textarea name=altnotes wrap=physical cols=70 rows=3>$data->{'altnotes'}</textarea></td></tr>
 </tr>