Author: rhafer Date: Thu Jul 28 11:59:18 2011 New Revision: 65057 URL: http://svn.opensuse.org/viewcvs/yast?rev=65057&view=rev Log: Only show mirror mode checkbox on sle-ha Modified: branches/SuSE-Code-11-SP2-Branch/ldap-server/src/dialogs.ycp Modified: branches/SuSE-Code-11-SP2-Branch/ldap-server/src/dialogs.ycp URL: http://svn.opensuse.org/viewcvs/yast/branches/SuSE-Code-11-SP2-Branch/ldap-server/src/dialogs.ycp?rev=65057&r1=65056&r2=65057&view=diff ============================================================================== --- branches/SuSE-Code-11-SP2-Branch/ldap-server/src/dialogs.ycp (original) +++ branches/SuSE-Code-11-SP2-Branch/ldap-server/src/dialogs.ycp Thu Jul 28 11:59:18 2011 @@ -19,6 +19,7 @@ import "LdapServer"; import "HTML"; import "Report"; +import "Pkg"; include "ldap-server/helps.ycp"; include "ldap-server/tree_structure.ycp"; @@ -34,6 +35,7 @@ **********************/ string error_str = ""; +boolean sourcemanager_started = false; list<map> generateTreeRec( list<map> tree, string parent, list<string> children ) { @@ -1079,6 +1081,22 @@ any MasterSetupDialog() { + if ( ! sourcemanager_started ) + { + Pkg::SourceStartManager(true); + } + list > products = Pkg::ResolvableProperties ("sle-hae", `product, ""); + boolean allowMirrorMode = false; + if ( size(products) > 0 ) + { + foreach( map product, products, { + if ( (symbol)product["status"]:`none == `available ) + { + allowMirrorMode = true; + } + }); + } + y2debug("MirrorMode allowed: %1", allowMirrorMode ); term widget = `HSquash( `VSquash( @@ -1094,7 +1112,9 @@ `Password( `id( `te_valid_rootpw ), `opt( `hstretch ), _("&Validate Password") ), `VSpacing( 0.5 ), `Left( - `CheckBox( `id( `cb_mirror_mode ), _("Prepare for MirrorMode replication (generates the serverId attribute)") ) + `ReplacePoint( `id( `rp_mirrormode ), + `Empty() + ) ) ) ) @@ -1104,6 +1124,12 @@ HELPS["master_setup_dialog"]:"help not found", Label::BackButton(), Label::NextButton() ); + if ( allowMirrorMode ) + { + UI::ReplaceWidget(`rp_mirrormode, + `CheckBox( `id( `cb_mirror_mode ), _("Prepare for MirrorMode replication (generates the serverId attribute)") ) + ); + } any ret = nil; while ( true ) { @@ -1131,7 +1157,10 @@ map defaults = LdapServer::CreateInitialDefaults(); defaults["configpw"] = pw; LdapServer::SetInitialDefaults(defaults); - LdapServer::WriteSetupMirrorMode( (boolean)UI::QueryWidget( `cb_mirror_mode, `Value ) ); + if ( allowMirrorMode ) + { + LdapServer::WriteSetupMirrorMode( (boolean)UI::QueryWidget( `cb_mirror_mode, `Value ) ); + } break; } } -- To unsubscribe, e-mail: yast-commit+unsubscribe@opensuse.org For additional commands, e-mail: yast-commit+help@opensuse.org