Implemented "First name".

[PerlMail.git] / PerlMail / Contacts / 9210.pm

diff --git a/PerlMail/Contacts/9210.pm b/PerlMail/Contacts/9210.pm
index e0c08a9..766514b 100644 (file)
--- 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,