From abd636a788d250bd9748d94d0200545755e8a301 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 28 Jun 2005 07:44:44 +0000 Subject: upcase protocol names --- perl-install/install_any.pm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'perl-install/install_any.pm') 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 -- cgit v1.2.1