From 6e4fd0be3c3d573ad37bea20275279a322bb4631 Mon Sep 17 00:00:00 2001
From: short <>
Date: Sat, 18 Dec 2004 09:10:04 +0000
Subject: [PATCH] Implemented "First name".

---
 PerlMail/Contacts/9210.pm | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

diff --git a/PerlMail/Contacts/9210.pm b/PerlMail/Contacts/9210.pm
index e0c08a9..766514b 100644
--- a/PerlMail/Contacts/9210.pm
+++ b/PerlMail/Contacts/9210.pm
@@ -73,8 +73,8 @@ my($self,$data)=@_;
 	for my $fields (@F) {
 		@names==@$fields or die "Fields line fields do not match the header names number";
 		my $id=$fields->[0];
-		my $mail_name;
-		my $mail_data;
+		my($mail_name,$mail_data);
+		my($name_last,$name_first);
 		for my $fieldi (1..$#names) {
 			my $string=$fields->[$fieldi];
 			next if $string eq "";
@@ -83,10 +83,11 @@ my($self,$data)=@_;
 			$id{$id}{$name}=$string if $first;
 			if ($name eq "Last name") {
 				die "Non-matching field" if $string ne $id{$id}{$name};
-				push @{$id{$id}{""}},{
-            "FIELD"=>"Name",
-            "FIELD-DATA"=>$string,
-						} if $first;
+				$name_last=$string;
+				}
+			elsif ($name eq "First name") {
+				die "Non-matching field" if $string ne $id{$id}{$name};
+				$name_first=$string;
 				}
 			elsif ($name eq "Company") {
 				die "Non-matching field" if $string ne $id{$id}{$name};
@@ -105,6 +106,12 @@ my($self,$data)=@_;
 				$mail_data=$string;
 				}
 			}
+		my $name=$name_last;
+		$name.=" ".$name_first if defined $name_first;
+		push @{$id{$id}{""}},{
+				"FIELD"=>"Name",
+				"FIELD-DATA"=>$name,
+				} if defined $name;
 		push @{$id{$id}{""}},{
 				"FIELD"=>"Mail",
 				"FIELD-NAME"=>$mail_name,
-- 
1.8.3.1