Fixed problem with incorrect formatted vCards
authorocto <octo>
Thu, 28 Apr 2005 11:24:45 +0000 (11:24 +0000)
committerocto <octo>
Thu, 28 Apr 2005 11:24:45 +0000 (11:24 +0000)
licom.cgi

index 80239b5..40bb8a3 100755 (executable)
--- a/licom.cgi
+++ b/licom.cgi
@@ -671,6 +671,8 @@ EOF
                my $vc_fld = $vcard_types{$field};
                my $values = $person->get ($field);
 
                my $vc_fld = $vcard_types{$field};
                my $values = $person->get ($field);
 
+               next unless ($vc_fld);
+
                for (@$values)
                {
                        my $value = $_;
                for (@$values)
                {
                        my $value = $_;