This commit was manufactured by cvs2svn to create tag 'R9_1'.R9_1

1 files changed, 5 insertions, 5 deletions

diff --git a/perl-install/standalone/drakperm b/perl-install/standalone/drakperm
index df811d232..6cd2202a3 100755
--- a/perl-install/standalone/drakperm
+++ b/perl-install/standalone/drakperm
@@ -242,7 +242,7 @@ sub row_setting_dialog {
     my $sticky = new Gtk2::CheckButton(N("sticky-bit"));
     my $suid   = new Gtk2::CheckButton(N("Set-UID"));
     my $gid    = new Gtk2::CheckButton(N("Set-GID"));
-    my $rght = $treeModel->_get($iter, 3);
+    my $rght = $treeModel->_get($iter, 3) if $iter;
     my $s = length($rght) == 4 ? substr($rght,0,1) : 0;
     my $user  = $s ? substr($rght,1,1) : substr($rght,0,1);
     my $group = $s ? substr($rght,2,1) : substr($rght,1,1);
@@ -279,17 +279,17 @@ sub row_setting_dialog {
     $s_right{write} and $gid->set_active(1);
     $s_right{read} and $suid->set_active(1);
      
-    $file->set_text($treeModel->_get($iter, 0));
+    $file->set_text($treeModel->_get($iter, 0)) if $iter;
 
     $users->set_popdown_strings(&get_user_or_group('users'));
-    $users->entry->set_text($treeModel->_get($iter, 1));
+    $users->entry->set_text($treeModel->_get($iter, 1)) if $iter;
     $users->entry->set_editable(0);
      
     $groups->set_popdown_strings(&get_user_or_group);
-    $groups->entry->set_text($treeModel->_get($iter, 2));
+    $groups->entry->set_text($treeModel->_get($iter, 2)) if $iter;
     $groups->entry->set_editable(0);
      
-    if ($treeModel->_get($iter, 1) eq 'current') {
+    if ($iter && $treeModel->_get($iter, 1) eq 'current') {
      $usr_check->set_active(1);
      $groups->set_sensitive(0);
      $users->set_sensitive(0);