From be99f97a5936ea968a70655bd6fb9131b082f2fd Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Mon, 1 Oct 2001 17:43:35 +0000 Subject: avoid chooseCD on oem install. --- perl-install/install_steps_interactive.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index e793aa449..55ebd053f 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -469,7 +469,7 @@ sub choosePackages { #- this is done at the very beginning to take into account #- selection of CD by user if using a cdrom. - $o->chooseCD($packages) if $o->{method} eq 'cdrom'; + $o->chooseCD($packages) if $o->{method} eq 'cdrom' && !$::oem; my $availableC = install_steps::choosePackages(@_); my $individual = $::expert; @@ -749,7 +749,7 @@ sub installPackages { my ($method, $medium) = @_; #- if not using a cdrom medium, always abort. - $method eq 'cdrom' and do { + $method eq 'cdrom' && !$::oem and do { my $name = pkgs::mediumDescr($o->{packages}, $medium); local $| = 1; print "\a"; my $r = $name !~ /Application/ || ($o->{useless_thing_accepted2} ||= $o->ask_from_list_('', formatAlaTeX($com_license), [ __("Accept"), __("Refuse") ], "Accept") eq "Accept"); -- cgit v1.2.1