fix "forgiving" primary group when (un)selecting secondary groups (mga#11864)

1 files changed, 4 insertions, 2 deletions

diff --git a/userdrake b/userdrake
index 0d482b0..b40daa8 100755
--- a/userdrake
+++ b/userdrake
@@ -1214,8 +1214,9 @@ sub Edit() {
                             } else {
                                 InArray($item, \@primgroup) and  @primgroup = RemoveFromArray($item, \@primgroup);
                             }
+                            my $old = $us->{o}{primgroup}->entry->get_text;
                             $us->{o}{primgroup}->set_popdown_strings(@primgroup);
-                            $Gent and $us->{o}{primgroup}->entry->set_text($Gent->GroupName($GetValue));
+                            $us->{o}{primgroup}->entry->set_text($old);
                         }
                     }
                 } 
@@ -1237,8 +1238,9 @@ sub Edit() {
                     } else {
                         InArray($item, \@primgroup) and  @primgroup = RemoveFromArray($item, \@primgroup);
                     }
+                    my $old = $us->{o}{primgroup}->entry->get_text;
                     $us->{o}{primgroup}->set_popdown_strings(@primgroup);
-                    $Gent and $us->{o}{primgroup}->entry->set_text($Gent->GroupName($GetValue));
+                    $us->{o}{primgroup}->entry->set_text($old);
                 }
             }
             0;