summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2005-07-22 03:08:18 +0000
committerAntoine Ginies <aginies@mandriva.com>2005-07-22 03:08:18 +0000
commit3adde30fee811cc5caa365fadb738962ca6f1dc9 (patch)
treeb5d070e136197dcdb515d545340c6009a9ae1427 /perl-install/standalone
parent69a6b8def4d2728546a8587193449d6ee28b5265 (diff)
downloaddrakx-3adde30fee811cc5caa365fadb738962ca6f1dc9.tar
drakx-3adde30fee811cc5caa365fadb738962ca6f1dc9.tar.gz
drakx-3adde30fee811cc5caa365fadb738962ca6f1dc9.tar.bz2
drakx-3adde30fee811cc5caa365fadb738962ca6f1dc9.tar.xz
drakx-3adde30fee811cc5caa365fadb738962ca6f1dc9.zip
remove duplicate entry in access list
Diffstat (limited to 'perl-install/standalone')
-rw-r--r--perl-install/standalone/draknfs10
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};