Non-Users no longer see nor can edit the groups they belong to.

[licom.git] / licom.cgi

diff --git a/licom.cgi b/licom.cgi
index 5abb2e6..80239b5 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};