summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone/draknfs12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/standalone/draknfs b/perl-install/standalone/draknfs
index fa4bc95c4..c1a6b70a5 100644
--- a/perl-install/standalone/draknfs
+++ b/perl-install/standalone/draknfs
@@ -137,7 +137,7 @@ sub help_b {
$dialog->set_title("Help");
$dialog->set_modal(1);
gtkpack_($dialog->vbox,
- 0, gtkadd(Gtk2::Frame->new(N($tittle)),
+ 0, gtkadd(Gtk2::Frame->new(N("%s",$tittle)),
gtkpack_(gtkset_border_width(Gtk2::VBox->new, 5),
0, $help_data,
),
@@ -159,7 +159,7 @@ sub add_modify_entry {
undef $iter;
map { $_ = Gtk2::Entry->new } $dir, $access, $anongid, $anonuid, $options;
- map { $_ = Gtk2::OptionMenu->new() } $lr, $luserid, $lsecure, $lsync;
+ map { $_ = Gtk2::OptionMenu->new } $lr, $luserid, $lsecure, $lsync;
my $luserid = new Gtk2::OptionMenu();
$luserid->set_popdown_strings(@listuserid);
@@ -240,11 +240,11 @@ sub add_modify_entry {
cancel_clicked => sub { $dialog->destroy },
ok_clicked => sub {
my ($anonu, $anong);
- $anonuid->get_text() and $anonu = "anonuid=" . $anonuid->get_text();
- $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();
+ $anonuid->get_text and $anonu = "anonuid=" . $anonuid->get_text;
+ $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;
+ -d $dir->get_text or err_dialog(N("Error!"), N("Please enter a directory to share.")) and return;
$iter = $model->append;
$i = "-1";
push @listshare, {