diff options
| author | Antoine Ginies <aginies@mandriva.com> | 2005-07-22 03:08:18 +0000 |
|---|---|---|
| committer | Antoine Ginies <aginies@mandriva.com> | 2005-07-22 03:08:18 +0000 |
| commit | 3adde30fee811cc5caa365fadb738962ca6f1dc9 (patch) | |
| tree | b5d070e136197dcdb515d545340c6009a9ae1427 | |
| parent | 69a6b8def4d2728546a8587193449d6ee28b5265 (diff) | |
| download | drakx-backup-do-not-use-3adde30fee811cc5caa365fadb738962ca6f1dc9.tar drakx-backup-do-not-use-3adde30fee811cc5caa365fadb738962ca6f1dc9.tar.gz drakx-backup-do-not-use-3adde30fee811cc5caa365fadb738962ca6f1dc9.tar.bz2 drakx-backup-do-not-use-3adde30fee811cc5caa365fadb738962ca6f1dc9.tar.xz drakx-backup-do-not-use-3adde30fee811cc5caa365fadb738962ca6f1dc9.zip | |
remove duplicate entry in access list
| -rw-r--r-- | perl-install/standalone/draknfs | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/perl-install/standalone/draknfs b/perl-install/standalone/draknfs index 92857a014..495c2e00f 100644 --- a/perl-install/standalone/draknfs +++ b/perl-install/standalone/draknfs @@ -275,8 +275,8 @@ sub add_modify_entry { $_ = Gtk2::OptionMenu->new foreach $lr, $luserid, $lsecure, $lsync; $access = Gtk2::ComboBoxEntry->new_text; -# $access = Gtk2::OptionMenu; - foreach (get_access_list()) { + my @access_list = get_access_list(); + foreach (@access_list) { $_ and $access->append_text($_); } @@ -309,9 +309,11 @@ sub add_modify_entry { my $path = $model->get_path($iter); $i = ($path->get_indices)[0]; $dir->set_text($listshare[$i]{dir}); - $access->append_text($listshare[$i]{access}); + if (!member($listshare[$i]{access}, @access_list)) { + $access->append_text($listshare[$i]{access}); + } $access->child->set_text($listshare[$i]{access}); -# $access->set_active(0); + # list of all rigth in bracket # $anongid, $anonuid, $lr, $luserid, $lsecure, $lsync; $right = $listshare[$i]{right}; |