From 70c70103f7f3c0c12e5d369d6316112e125f0db6 Mon Sep 17 00:00:00 2001
From: chris <chris>
Date: Wed, 19 Jan 2000 22:25:45 +0000
Subject: [PATCH] ifixes CV:
 ----------------------------------------------------------------------

---
 fines.pl       | 2 +-
 insertdata.pl  | 7 ++++---
 memberentry.pl | 4 ++--
 moremember.pl  | 2 +-
 4 files changed, 8 insertions(+), 7 deletions(-)

diff --git a/fines.pl b/fines.pl
index 129370a..1da25e7 100755
--- a/fines.pl
+++ b/fines.pl
@@ -14,7 +14,7 @@ my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime(time);
 $mon++;
 $year=$year+1900;
 #my $date=Date_DaysSince999($mon,$mday,$year);
-my $date=Date_DaysSince999(1,18,2000);
+my $date=Date_DaysSince999(1,19,2000);
 my $bornum;
 my $borrower;
 my $max=5;
diff --git a/insertdata.pl b/insertdata.pl
index df822e2..1a3edae 100755
--- a/insertdata.pl
+++ b/insertdata.pl
@@ -38,7 +38,7 @@ if (my $data=$sth->fetchrow_hashref){
   altrelationship='$data{'altrelationship'}',othernames='$data{'othernames'}',phoneday='$data{'phoneday'}',
   categorycode='$data{'categorycode'}',city='$data{'city'}',area='$data{'area'}',phone='$data{'phone'}',
   borrowernotes='$data{'borrowernotes'}',altphone='$data{'altphone'}',surname='$data{'surname'}',
-  initials='$data{'initials'}',streetaddress='$data{'address'}',ethnicity='$data{'ethnicity'}'
+  initials='$data{'initials'}',physstreet='$data{'streetaddress'}',ethnicity='$data{'ethnicity'}'
   where borrowernumber=$data{'borrowernumber'}";
 #  print $query;
 
@@ -50,13 +50,14 @@ if (my $data=$sth->fetchrow_hashref){
   $query="insert into borrowers (title,expiry,cardnumber,sex,ethnotes,streetaddress,faxnumber,
   firstname,altnotes,dateofbirth,contactname,emailaddress,dateenrolled,streetcity,
   altrelationship,othernames,phoneday,categorycode,city,area,phone,borrowernotes,altphone,surname,
-  initials,ethnicity,borrowernumber) values ('$data{'title'}','$data{'expiry'}','$data{'cardnumber'}',
+  initials,ethnicity,borrowernumber,physstreet) 
+  values ('$data{'title'}','$data{'expiry'}','$data{'cardnumber'}',
   '$data{'sex'}','$data{'ethnotes'}','$data{'address'}','$data{'faxnumber'}',
   '$data{'firstname'}','$data{'altnotes'}','$data{'dateofbirth'}','$data{'contactname'}','$data{'emailaddress'}',
   '$data{'joining'}','$data{'streetcity'}','$data{'altrelationship'}','$data{'othernames'}',
   '$data{'phoneday'}','$data{'categorycode'}','$data{'city'}','$data{'area'}','$data{'phone'}',
   '$data{'borrowernotes'}','$data{'altphone'}','$data{'surname'}','$data{'initials'}',
-  '$data{'ethnicity'}','$data{'borrowernumber'}')";
+  '$data{'ethnicity'}','$data{'borrowernumber'}','$data{'streetaddress'}')";
 }
 #print $query;
   my $sth2=$dbh->prepare($query);
diff --git a/memberentry.pl b/memberentry.pl
index f9a4fd2..de98c9f 100755
--- a/memberentry.pl
+++ b/memberentry.pl
@@ -281,8 +281,8 @@ print <<printend
 <tr><td>&nbsp; </TD></TR>
 <tr valign=top bgcolor=white>
 
-<td  COLSPAN=3><input type=text name=streetaddress size=40 value="$data->{'physstreetaddress'}"></td>
-<td><input type=text name=streetcity size=20 value="$data->{'physcity'}"></td>
+<td  COLSPAN=3><input type=text name=streetaddress size=40 value="$data->{'physstreet'}"></td>
+<td><input type=text name=streetcity size=20 value="$data->{'streetcity'}"></td>
 </tr>
 </tr>
 <tr valign=top bgcolor=white>
diff --git a/moremember.pl b/moremember.pl
index 94d975c..2e717e1 100755
--- a/moremember.pl
+++ b/moremember.pl
@@ -48,7 +48,7 @@ Ethnicity: $data->{'ethnicity'}, $data->{'ethnotes'}<BR>
 DoB: $data->{'dateofbirth'}<BR>
 Sex: $data->{'sex'}<P>
 Postal Address: $data->{'streetaddress'}, $data->{'city'}<BR>
-Home Address: $data->{'streetaddress'}, $data->{'city'}<BR>
+Home Address: $data->{'physstreet'}, $data->{'streetcity'}<BR>
 Phone (Home): $data->{'phone'}<BR>
 Phone (Daytime): $data->{'phoneday'}<BR>
 Fax: $data->{'faxnumber'}<BR>