diff --git a/moremember.pl b/moremember.pl index 86354f6..e043170 100755 --- a/moremember.pl +++ b/moremember.pl @@ -25,6 +25,18 @@ $data->{'dateenrolled'}="$temp[2]/$temp[1]/$temp[0]"; $data->{'expiry'}="$temp[2]/$temp[1]/$temp[0]"; @temp=split('-',$data->{'dateofbirth'}); $data->{'dateofbirth'}="$temp[2]/$temp[1]/$temp[0]"; +if ($data->{'ethnicity'} eq 'maori'){ + $data->{'ethnicity'} = 'Maori'; +} +if ($data->{'ethnicity'}eq 'european'){ + $data->{'ethnicity'} = 'European/Pakeha'; +} +if ($data->{'ethnicity'}eq 'pi'){ + $data->{'ethnicity'} = 'Pacific Islander'; +} +if ($data->{'ethnicity'}eq 'asian'){ + $data->{'ethnicity'} = 'Asian'; +} print <$data->{'othernames'} $data->{'surname'}

@@ -39,22 +51,24 @@ print <


$data->{'title'} $data->{'othernames'} $data->{'surname'} ($data->{'firstname'}, $data->{'initials'})

-Membership Number: $data->{'borrowernumber'}
+ Card Number: $data->{'cardnumber'}
-Membership: $data->{'categorycode'}
-Area: $data->{'area'}
-Fee:$30/year, Paid
-Joined: $data->{'dateenrolled'}, Expires: $data->{'expiry'}
-Joining Branch: Levin

-Ethnicity: $data->{'ethnicity'}, $data->{'ethnotes'}
-DoB: $data->{'dateofbirth'}
-Sex: $data->{'sex'}

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

+Membership Number: $data->{'borrowernumber'}
+Membership: $data->{'categorycode'}
+Area: $data->{'area'}
+Fee:$30/year, Paid
+Joined: $data->{'dateenrolled'}, Expires: $data->{'expiry'}
+Joining Branch: $data->{'homebranch'}

+Ethnicity: $data->{'ethnicity'}, $data->{'ethnotes'}
+DoB: $data->{'dateofbirth'}
+Sex: $data->{'sex'}

+ Alternative Contact:$data->{'contactname'}
Phone: $data->{'altphone'}
Relationship: $data->{'altrelationship'}
diff --git a/request.pl b/request.pl index 9eb8848..638287d 100755 --- a/request.pl +++ b/request.pl @@ -70,6 +70,7 @@ print <Levin