Mailinglist Archive: yast-commit (135 mails)

< Previous Next >
[yast-commit] r67684 - /trunk/users/src/ldap_dialogs.ycp
Author: jsuchome
Date: Thu Mar 22 08:10:45 2012
New Revision: 67684

URL: http://svn.opensuse.org/viewcvs/yast?rev=67684&view=rev
Log:
correctly handle exiting from ldap_config

Modified:
trunk/users/src/ldap_dialogs.ycp

Modified: trunk/users/src/ldap_dialogs.ycp
URL:
http://svn.opensuse.org/viewcvs/yast/trunk/users/src/ldap_dialogs.ycp?rev=67684&r1=67683&r2=67684&view=diff
==============================================================================
--- trunk/users/src/ldap_dialogs.ycp (original)
+++ trunk/users/src/ldap_dialogs.ycp Thu Mar 22 08:10:45 2012
@@ -531,10 +531,11 @@
UI::ChangeWidget (`id (s), `Enabled, ppolicies_enabled);
});

- symbol ret = (symbol) UI::UserInput ();
+ symbol ret = `cancel;

while (true)
{
+ ret = (symbol) UI::UserInput ();
if (ret == `add)
{
string suffix = base_dn;
@@ -637,15 +638,12 @@
// open "LDAP User objects configuration"
if (ret == `configure)
{
- any result = WFM::CallFunction ("ldap_config", ["late_dialog"]);
- if (result != nil)
+ any result = WFM::CallFunction ("ldap_config");
+ if (result == `next)
{
- ret = (symbol) result;
- if (ret == `next)
- {
- modified = true;
- }
+ modified = true;
}
+ continue;
}
if (ret == `back || ret == `cancel || ret == `abort)
{

--
To unsubscribe, e-mail: yast-commit+unsubscribe@xxxxxxxxxxxx
For additional commands, e-mail: yast-commit+help@xxxxxxxxxxxx

< Previous Next >
This Thread
  • No further messages