summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2005-07-05 06:56:07 +0000
committerAntoine Ginies <aginies@mandriva.com>2005-07-05 06:56:07 +0000
commit8ae579359dffda15f79c7cfae704e9b2cb4bf09e (patch)
tree45a88bc57dd36f0388d90471a2d8295a930a17d5 /perl-install/standalone
parent4fc162b436e911d2879da2989bee7e193a4e9dd1 (diff)
downloaddrakx-8ae579359dffda15f79c7cfae704e9b2cb4bf09e.tar
drakx-8ae579359dffda15f79c7cfae704e9b2cb4bf09e.tar.gz
drakx-8ae579359dffda15f79c7cfae704e9b2cb4bf09e.tar.bz2
drakx-8ae579359dffda15f79c7cfae704e9b2cb4bf09e.tar.xz
drakx-8ae579359dffda15f79c7cfae704e9b2cb4bf09e.zip
fix string pb
Diffstat (limited to 'perl-install/standalone')
-rw-r--r--perl-install/standalone/drakhosts22
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;
}