diff options
| author | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-08-19 09:01:58 +0000 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@mandriva.org> | 2004-08-19 09:01:58 +0000 |
| commit | 2fd93913c0ac9f0e6daffaa140778f14931a8ea1 (patch) | |
| tree | 6a9bf6d72c3ab69490b124554951d973d2253200 /perl-install | |
| parent | 3ec80023d1cd4c496afdecc4c7c483654edc494b (diff) | |
| download | drakx-2fd93913c0ac9f0e6daffaa140778f14931a8ea1.tar drakx-2fd93913c0ac9f0e6daffaa140778f14931a8ea1.tar.gz drakx-2fd93913c0ac9f0e6daffaa140778f14931a8ea1.tar.bz2 drakx-2fd93913c0ac9f0e6daffaa140778f14931a8ea1.tar.xz drakx-2fd93913c0ac9f0e6daffaa140778f14931a8ea1.zip | |
Move code in another function
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_any.pm | 25 |
1 files changed, 15 insertions, 10 deletions
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 82223cb4c..45b39b28a 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -361,21 +361,26 @@ sub preConfigureTimezone { add2hash_($o->{timezone}, { UTC => $utc, ntp => $ntp }); } -sub selectSupplMedia { - my ($o, $suppl_method) = @_; - #- ask whether there are supplementary media - my $prev_asked_medium = $asked_medium; - if ($suppl_method && !$o->{isUpgrade} - && (my $suppl = $o->ask_from_list_( - '', formatAlaTeX( +sub ask_if_suppl_media { + my ($o) = @_; + my $suppl = $o->ask_from_list_( + '', formatAlaTeX( #-PO: keep the double empty lines between sections, this is formated a la LaTeX N("The following media have been found and will be used during install: %s. Do you have a supplementary installation media to configure?", - join ", ", uniq(map { $_->{descr} } values %{$o->{packages}{mediums}})) - ), [ N_("None"), N_("CD-ROM"), N_("Network (http)"), N_("Network (ftp)") ], 'None') - ) ne 'None') + join ", ", uniq(map { $_->{descr} } values %{$o->{packages}{mediums}})) + ), [ N_("None"), N_("CD-ROM"), N_("Network (http)"), N_("Network (ftp)") ], 'None'); + return $suppl; +} + +sub selectSupplMedia { + my ($o, $suppl_method) = @_; + #- ask whether there are supplementary media + my $prev_asked_medium = $asked_medium; + if ($suppl_method && !$o->{isUpgrade} + && (my $suppl = ask_if_suppl_media($o)) ne 'None') { #- translate to method name $suppl_method = { |