summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-08-19 09:01:58 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2004-08-19 09:01:58 +0000
commit2fd93913c0ac9f0e6daffaa140778f14931a8ea1 (patch)
tree6a9bf6d72c3ab69490b124554951d973d2253200 /perl-install
parent3ec80023d1cd4c496afdecc4c7c483654edc494b (diff)
downloaddrakx-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.pm25
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 = {