Fixed problem with incorrect formatted vCards

[licom.git] / licom.cgi

diff --git a/licom.cgi b/licom.cgi
index 5abb2e6..40bb8a3 100755 (executable)
--- a/licom.cgi
+++ b/licom.cgi
@@ -479,6 +479,8 @@ EOF
                my $print = defined ($FieldNames{$field}) ? $FieldNames{$field} : $field;
                my @values = @{$contacts->{$field}};
 
+               next if (!$UserID and $field eq 'group');
+
                push (@values, '');
                
                for (@values)
@@ -606,6 +608,8 @@ sub action_update
        {
                my $field = $_;
                
+               next if (!$UserID and $field eq 'group');
+
                if (defined ($contacts->{$field}))
                {
                        my $values = $contacts->{$field};
@@ -667,6 +671,8 @@ EOF
                my $vc_fld = $vcard_types{$field};
                my $values = $person->get ($field);
 
+               next unless ($vc_fld);
+
                for (@$values)
                {
                        my $value = $_;