diff options
author | alee <alee@c9f7a03b-bd48-0410-a16d-cbbf54688b0b> | 2009-05-21 01:43:37 +0000 |
---|---|---|
committer | alee <alee@c9f7a03b-bd48-0410-a16d-cbbf54688b0b> | 2009-05-21 01:43:37 +0000 |
commit | f35d2c17af63f124f57f47b8968ab840d07a501f (patch) | |
tree | 0c4f27df78e546aeb08a8fe32aab51a707950ca8 /pki/base/tps/lib/perl/PKI/TPS/SecurityDomainPanel.pm | |
parent | c8de1e88d4b834c697e8c12cfae2000f784e5678 (diff) | |
download | pki-f35d2c17af63f124f57f47b8968ab840d07a501f.tar.gz pki-f35d2c17af63f124f57f47b8968ab840d07a501f.tar.xz pki-f35d2c17af63f124f57f47b8968ab840d07a501f.zip |
Bugzilla Bug #497583 - web wizard tps - menu highlight and label typo
git-svn-id: svn+ssh://svn.fedorahosted.org/svn/pki/trunk@484 c9f7a03b-bd48-0410-a16d-cbbf54688b0b
Diffstat (limited to 'pki/base/tps/lib/perl/PKI/TPS/SecurityDomainPanel.pm')
-rwxr-xr-x | pki/base/tps/lib/perl/PKI/TPS/SecurityDomainPanel.pm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/pki/base/tps/lib/perl/PKI/TPS/SecurityDomainPanel.pm b/pki/base/tps/lib/perl/PKI/TPS/SecurityDomainPanel.pm index a7f46dbd9..c422a8bcc 100755 --- a/pki/base/tps/lib/perl/PKI/TPS/SecurityDomainPanel.pm +++ b/pki/base/tps/lib/perl/PKI/TPS/SecurityDomainPanel.pm @@ -41,7 +41,7 @@ sub new { $self->{"isSubPanel"} = \&is_sub_panel; $self->{"hasSubPanel"} = \&has_sub_panel; - $self->{"isPanelDone"} = \&PKI::TPS::Common::no; + $self->{"isPanelDone"} = \&is_panel_done; $self->{"getPanelNo"} = &PKI::TPS::Common::r(1); $self->{"getName"} = &PKI::TPS::Common::r("Security Domain"); $self->{"vmfile"} = "securitydomainpanel.vm"; @@ -188,9 +188,15 @@ sub update $::config->put("securitydomain.select", "existing"); $::config->put("securitydomain.host", $sdomainURL_info->host); $::config->put("securitydomain.httpsadminport", $sdomainURL_info->port); + $::config->put("preop.securitydomain.done", "true"); $::config->commit(); return 1; } +sub is_panel_done +{ + return $::config->get("preop.securitydomain.done"); +} + 1; |