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 <  - - + + 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'}
DoB: $data->{'dateofbirth'}
Sex: $data->{'sex'}

Postal Address: $data->{'streetaddress'}, $data->{'city'}
-Home Address: $data->{'streetaddress'}, $data->{'city'}
+Home Address: $data->{'physstreet'}, $data->{'streetcity'}
Phone (Home): $data->{'phone'}
Phone (Daytime): $data->{'phoneday'}
Fax: $data->{'faxnumber'}