summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-02-08 14:21:17 +0000
committerRafael Garcia-Suarez <rgarciasuarez@mandriva.org>2005-02-08 14:21:17 +0000
commita4cd651f7b020f31b9011ba545e7042297f6bfe8 (patch)
tree80b2ce37bfea181b1a097b829d917738aef4a272 /perl-install
parente4949ced909adf01a56a26d4a4d4cb3071933e05 (diff)
downloaddrakx-backup-do-not-use-a4cd651f7b020f31b9011ba545e7042297f6bfe8.tar
drakx-backup-do-not-use-a4cd651f7b020f31b9011ba545e7042297f6bfe8.tar.gz
drakx-backup-do-not-use-a4cd651f7b020f31b9011ba545e7042297f6bfe8.tar.bz2
drakx-backup-do-not-use-a4cd651f7b020f31b9011ba545e7042297f6bfe8.tar.xz
drakx-backup-do-not-use-a4cd651f7b020f31b9011ba545e7042297f6bfe8.zip
Don't propose to copy RPMs on disk for ISO installation method
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm46
1 files changed, 24 insertions, 22 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index e9487b7f5..23ed822ee 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -634,7 +634,7 @@ sub summary_prompt {
sub deselectFoundMedia {
#- group by CD
- my (undef, $hdlists) = @_;
+ my ($o, $hdlists) = @_;
my %cdlist;
my @hdlist2;
my @corresp;
@@ -654,31 +654,33 @@ sub deselectFoundMedia {
}
++$i;
}
- my $w = ugtk2->new("");
my @selection = (1) x @hdlist2;
my $copy_rpms_on_disk = 0;
- $i = -1;
- $w->sync;
- #- TODO check available size for copying rpms from infos in hdlists file
- ugtk2::gtkadd(
- $w->{window},
- gtkpack(
- Gtk2::VBox->new(0, 5),
- Gtk2::WrappedLabel->new(N("The following installation media have been found.
+ if ($o->{method} !~ /-iso$/) {
+ my $w = ugtk2->new("");
+ $i = -1;
+ $w->sync;
+ #- TODO check available size for copying rpms from infos in hdlists file
+ ugtk2::gtkadd(
+ $w->{window},
+ gtkpack(
+ Gtk2::VBox->new(0, 5),
+ Gtk2::WrappedLabel->new(N("The following installation media have been found.
If you want to skip some of them, you can unselect them now.")),
- (map { ++$i; gtknew('CheckButton', text => $_->[3], active_ref => \$selection[$i]) } @hdlist2),
- gtknew('HSeparator'),
- Gtk2::WrappedLabel->new(N("You have the possibility to copy the contents of the CDs on the hard drive before installation.
+ (map { ++$i; gtknew('CheckButton', text => $_->[3], active_ref => \$selection[$i]) } @hdlist2),
+ gtknew('HSeparator'),
+ Gtk2::WrappedLabel->new(N("You have the possibility to copy the contents of the CDs on the hard drive before installation.
It will then continue from the hard drive and the packages will remain available once the system will be fully installed.")),
- gtknew('CheckButton', text => N("Copy whole CDs"), active_ref => \$copy_rpms_on_disk),
- gtknew('HSeparator'),
- #- TODO only show this for cdrom install method ?
- gtknew('HBox', children_tight => [
- gtknew('Button', text => N("Next"), clicked => sub { Gtk2->main_quit }),
- ]),
- ),
- );
- $w->main;
+ gtknew('CheckButton', text => N("Copy whole CDs"), active_ref => \$copy_rpms_on_disk),
+ gtknew('HSeparator'),
+ #- TODO only show this for cdrom install method ?
+ gtknew('HBox', children_tight => [
+ gtknew('Button', text => N("Next"), clicked => sub { Gtk2->main_quit }),
+ ]),
+ ),
+ );
+ $w->main;
+ }
$i = -1;
my $l = [ grep { $selection[++$i] } @hdlist2 ];
my @l2; $i = 0;