From 703daff08f924e303218385857b4f71fc85f2e07 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 12 Nov 2004 18:41:27 +0000 Subject: no "auto install floppy" on ppc --- perl-install/install_steps_interactive.pm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'perl-install/install_steps_interactive.pm') diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 13b2a4acf..e3c4bbf87 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -1356,7 +1356,8 @@ Do you really want to quit now?"), 0); ok => N("Reboot"), }, [ - { val => \ (my $_t1 = N("Generate auto install floppy")), clicked => sub { + if_(arch() !~ /^ppc/, + { val => \ (my $_t1 = N("Generate auto install floppy")), clicked => sub { my $t = $o->ask_from_list_('', N("The auto install can be fully automated if wanted, in that case it will take over the hard drive!! @@ -1365,7 +1366,7 @@ in that case it will take over the hard drive!! You may prefer to replay the installation. "), [ N_("Replay"), N_("Automated") ]); $t and $o->generateAutoInstFloppy($t eq 'Replay'); - }, advanced => 1 }, + }, advanced => 1 }), { val => \ (my $_t2 = N("Save packages selection")), clicked => sub { install_any::g_default_packages($o) }, advanced => 1 }, ] ) if $alldone; -- cgit v1.2.1