diff options
| author | Antoine Ginies <aginies@mandriva.com> | 2005-07-05 06:47:30 +0000 |
|---|---|---|
| committer | Antoine Ginies <aginies@mandriva.com> | 2005-07-05 06:47:30 +0000 |
| commit | b550f48fe108f6b80669d52c2d494dc40c065cb6 (patch) | |
| tree | d56c00508699c8af1968aedd65be7f7cf8de8002 /perl-install/standalone/draknfs | |
| parent | fe83432531821870b3aacb595f26ff8cb6ba67e7 (diff) | |
| download | drakx-backup-do-not-use-b550f48fe108f6b80669d52c2d494dc40c065cb6.tar drakx-backup-do-not-use-b550f48fe108f6b80669d52c2d494dc40c065cb6.tar.gz drakx-backup-do-not-use-b550f48fe108f6b80669d52c2d494dc40c065cb6.tar.bz2 drakx-backup-do-not-use-b550f48fe108f6b80669d52c2d494dc40c065cb6.tar.xz drakx-backup-do-not-use-b550f48fe108f6b80669d52c2d494dc40c065cb6.zip | |
various other fix to be able to build drakxtools
Diffstat (limited to 'perl-install/standalone/draknfs')
| -rw-r--r-- | perl-install/standalone/draknfs | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/perl-install/standalone/draknfs b/perl-install/standalone/draknfs index c1a6b70a5..c102009b3 100644 --- a/perl-install/standalone/draknfs +++ b/perl-install/standalone/draknfs @@ -244,20 +244,21 @@ sub add_modify_entry { $anongid->get_text and $anong = "anongid=" . $anongid->get_text; map { $_ and $all_right = $_ . "," . $all_right } $luserid->get_text, $anonu, $anong, $lsync->get_text, $lsecure->get_text, $lr->get_text; if ($wanted =~ /add/) { - -d $dir->get_text or err_dialog(N("Error!"), N("Please enter a directory to share.")) and return; + my $test_dir = $dir->get_text; + -d $test_dir or err_dialog(N("Error!"), N("Please enter a directory to share.")) and return; $iter = $model->append; $i = "-1"; push @listshare, { - dir => $dir->get_text(), - access => $access->get_text(), + dir => $dir->get_text, + access => $access->get_text, right => $all_right, - options => $options->get_text(), + options => $options->get_text, }; } $listshare[$i]{right} = $all_right; - $listshare[$i]{access} = $access->get_text(); - $listshare[$i]{dir} = $dir->get_text(); - $listshare[$i]{options} = $options->get_text(); + $listshare[$i]{access} = $access->get_text; + $listshare[$i]{dir} = $dir->get_text; + $listshare[$i]{options} = $options->get_text; $model->set($iter, COLUMN_DIR, $listshare[$i]{dir}, COLUMN_ACCESS, $listshare[$i]{access}, @@ -298,7 +299,7 @@ sub create_model() { COLUMN_ACCESS, $a->{access}, COLUMN_RIGHT, $a->{right}, COLUMN_OPTIONS, $a->{options}, - ), + ); } return $model; } |