summaryrefslogtreecommitdiffstats
path: root/perl-install/install_any.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2005-06-28 07:44:44 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2005-06-28 07:44:44 +0000
commitabd636a788d250bd9748d94d0200545755e8a301 (patch)
treeb9eaf9689d25cafbae38c73f90015f0c376eee5f /perl-install/install_any.pm
parentd4dc3402c77a6d4d080cb12010d90cfbf8d95894 (diff)
downloaddrakx-abd636a788d250bd9748d94d0200545755e8a301.tar
drakx-abd636a788d250bd9748d94d0200545755e8a301.tar.gz
drakx-abd636a788d250bd9748d94d0200545755e8a301.tar.bz2
drakx-abd636a788d250bd9748d94d0200545755e8a301.tar.xz
drakx-abd636a788d250bd9748d94d0200545755e8a301.zip
upcase protocol names
Diffstat (limited to 'perl-install/install_any.pm')
-rw-r--r--perl-install/install_any.pm8
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 7e23fddc4..70ceb6d2e 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -415,7 +415,7 @@ Do you have a supplementary installation media to configure?",
'', $msg,
[ {
val => \my $suppl,
- list => [ N_("None"), N_("CD-ROM"), N_("Network (http)"), N_("Network (ftp)"), N_("Network (NFS)") ],
+ list => [ N_("None"), N_("CD-ROM"), N_("Network (HTTP)"), N_("Network (FTP)"), N_("Network (NFS)") ],
type => 'list',
format => \&translate,
} ],
@@ -459,9 +459,9 @@ sub selectSupplMedia {
#- translate to method name
$suppl_method = {
'CD-ROM' => 'cdrom',
- 'Network (http)' => 'http',
- 'Network (ftp)' => 'ftp',
- 'Network (nfs)' => 'nfs',
+ 'Network (HTTP)' => 'http',
+ 'Network (FTP)' => 'ftp',
+ 'Network (NFS)' => 'nfs',
}->{$suppl};
my $medium_name = int(keys %{$o->{packages}{mediums}}) + 1;
#- configure network if needed