diff options
-rwxr-xr-x | userdrake | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -229,7 +229,7 @@ sub AddUser { 0, BuildUui(), 0, Gtk2::HSeparator->new, 0, $us->{o}->{createhomedir} = Gtk2::CheckButton->new(N("Create Home Directory")), - 0, gtkpack_(Gtk2::HBox->new(0, 4), + 0, gtkpack_(my $vv = Gtk2::HBox->new(0, 4), 0, Gtk2::Label->new(N("Home Directory: ")), 0, $us->{o}->{homedir} = Gtk2::Entry->new() ), @@ -304,6 +304,7 @@ sub AddUser { ) ); map { $us->{o}->{$_}->set_active(1) } (qw(privategroup createhomedir)); + GrayBox( $us->{o}->{createhomedir}, $vv, 1); $us->{o}->{login}->signal_connect('focus_out_event' => sub { my $fullname = $us->{o}->{fullname}->get_text(); $us->{o}->{homedir}->set_text("/home/".$us->{o}->{login}->get_text()); @@ -463,8 +464,8 @@ sub Delete { my $groupEnt = $ctx->LookupGroupById($usergid); my $member = $groupEnt->MemberName(1, 0); if ($groupEnt && (scalar(@$member) == 0)) { $groupEnt->Gid($GetValue) > 499 and $ctx->GroupDel($groupEnt) }; - $checkhome->get_active() and $ctx->Clean($userEnt); - $checkspool->get_active() and $ctx->Clean($userEnt); + $checkhome->get_active() and $ctx->CleanHome($userEnt); + $checkspool->get_active() and $ctx->CleanSpool($userEnt); Refresh($sysfilter, $stringsearch) } !$error and Gtk2->main_quit; $error = 0; }) |