From edfe9215b1751521cb813f02c57b99650494a792 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 28 Feb 2001 14:30:50 +0000
Subject: (configureServices): services::ask done in expert or if clicked

---
 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 b2ccbddb9..aca6de84e 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -704,9 +704,9 @@ sub configureTimezone {
 
 #------------------------------------------------------------------------------
 sub configureServices { 
-    my ($o) = @_;
+    my ($o, $clicked) = @_;
     require services;
-    $o->{services} = services::ask($o, $o->{prefix});
+    $o->{services} = services::ask($o, $o->{prefix}) if $::expert || $clicked;
     install_steps::configureServices($o);
 }
 
-- 
cgit v1.2.1