From 2d4331ab3efc9e10132b553024b5bf2bb380b32c Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 16 Apr 2002 15:15:20 +0000
Subject: handle "Cancel" on NIS / LDAP server dialog box

---
 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 e0750031a..bf9dbbafd 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1096,7 +1096,7 @@ sub setRootPassword {
 		     _("Authentication LDAP"),
 		     [ { label => _("LDAP Base dn"), val => \$o->{netc}{LDAPDOMAIN} },
 		       { label => _("LDAP Server"), val => \$o->{authentication}{LDAP} },
-		     ]);
+		     ]) or goto &setRootPassword;
     } else { $o->{authentication}{LDAP} = '' }
     if ($auth eq __("NIS")) { 
 	$o->{authentication}{NIS} ||= 'broadcast';
@@ -1104,7 +1104,7 @@ sub setRootPassword {
 		     _("Authentication NIS"),
 		     [ { label => _("NIS Domain"), val => \ ($o->{netc}{NISDOMAIN} ||= $o->{netc}{DOMAINNAME}) },
 		       { label => _("NIS Server"), val => \$o->{authentication}{NIS}, list => ["broadcast"], not_edit => 0 },
-		     ]); 
+		     ]) or goto &setRootPassword;
     } else { $o->{authentication}{NIS} = '' }
     install_steps::setRootPassword($o);
 }
-- 
cgit v1.2.1