diff options
| author | Antoine Ginies <aginies@mandriva.com> | 2005-07-05 06:56:07 +0000 |
|---|---|---|
| committer | Antoine Ginies <aginies@mandriva.com> | 2005-07-05 06:56:07 +0000 |
| commit | 8ae579359dffda15f79c7cfae704e9b2cb4bf09e (patch) | |
| tree | 45a88bc57dd36f0388d90471a2d8295a930a17d5 /perl-install/standalone/drakhosts | |
| parent | 4fc162b436e911d2879da2989bee7e193a4e9dd1 (diff) | |
| download | drakx-backup-do-not-use-8ae579359dffda15f79c7cfae704e9b2cb4bf09e.tar drakx-backup-do-not-use-8ae579359dffda15f79c7cfae704e9b2cb4bf09e.tar.gz drakx-backup-do-not-use-8ae579359dffda15f79c7cfae704e9b2cb4bf09e.tar.bz2 drakx-backup-do-not-use-8ae579359dffda15f79c7cfae704e9b2cb4bf09e.tar.xz drakx-backup-do-not-use-8ae579359dffda15f79c7cfae704e9b2cb4bf09e.zip | |
fix string pb
Diffstat (limited to 'perl-install/standalone/drakhosts')
| -rw-r--r-- | perl-install/standalone/drakhosts | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/perl-install/standalone/drakhosts b/perl-install/standalone/drakhosts index 55736f173..c48f8d1ad 100644 --- a/perl-install/standalone/drakhosts +++ b/perl-install/standalone/drakhosts @@ -103,7 +103,7 @@ sub add_modify_entry { } gtkpack_($dialog->vbox, - 0, gtkadd(Gtk2::Frame->new(N("Please $wanted information")), + 0, gtkadd(Gtk2::Frame->new(N("Please %s information", $wanted)), gtkpack_(gtkset_border_width(Gtk2::VBox->new, 5), 0, $label_and_widgets->(N("IP address:"), $ip), 0, $label_and_widgets->(N("Host name:"), $hostname), @@ -113,9 +113,9 @@ sub add_modify_entry { 0, create_okcancel({ cancel_clicked => sub { $dialog->destroy }, ok_clicked => sub { - is_ip($ip->get_text()) or err_dialog(N("Error!"), N("Please enter a valid IP address.")) and return; - my $testip = chomp_($ip->get_text()); - my $testname = chomp_($hostname->get_text()); + is_ip($ip->get_text) or err_dialog(N("Error!"), N("Please enter a valid IP address.")) and return; + my $testip = chomp_($ip->get_text); + my $testname = chomp_($hostname->get_text); my $toldip = chomp_($oldip); if ($testip !~ /$toldip/ or $wanted =~ /add/) { foreach my $a (@listhosts) { @@ -128,14 +128,14 @@ sub add_modify_entry { $iter = $model->append; $i = "-1"; push @listhosts, { - ip => $ip->get_text(), - hostname => $hostname->get_text(), - alias => $alias->get_text(), + ip => $ip->get_text, + hostname => $hostname->get_text, + alias => $alias->get_text, }; } - $listhosts[$i]{hostname} = $hostname->get_text(); - $listhosts[$i]{alias} = $alias->get_text(); - $listhosts[$i]{ip} = $ip->get_text(); + $listhosts[$i]{hostname} = $hostname->get_text; + $listhosts[$i]{alias} = $alias->get_text; + $listhosts[$i]{ip} = $ip->get_text; $model->set($iter, COLUMN_IP, $listhosts[$i]{ip}, COLUMN_HOSTNAME, $listhosts[$i]{hostname}, @@ -174,7 +174,7 @@ sub create_model() { COLUMN_IP, $a->{ip}, COLUMN_HOSTNAME, $a->{hostname}, COLUMN_ALIAS, $a->{alias}, - ), + ); } return $model; } |