diff options
Diffstat (limited to 'pki/base/tps/lib/perl/PKI/TPS/LoginPanel.pm')
| -rwxr-xr-x | pki/base/tps/lib/perl/PKI/TPS/LoginPanel.pm | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/pki/base/tps/lib/perl/PKI/TPS/LoginPanel.pm b/pki/base/tps/lib/perl/PKI/TPS/LoginPanel.pm index d8d358f43..c57e61779 100755 --- a/pki/base/tps/lib/perl/PKI/TPS/LoginPanel.pm +++ b/pki/base/tps/lib/perl/PKI/TPS/LoginPanel.pm @@ -38,7 +38,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(0); $self->{"getName"} = &PKI::TPS::Common::r("Welcome"); $self->{"vmfile"} = "login.vm"; @@ -71,6 +71,9 @@ sub update { my ($q) = @_; &PKI::TPS::Wizard::debug_log("WelcomePanel: update"); + $::config->put("preop.loginpanel.done", "true"); + $::config->commit(); + return 1; } @@ -87,4 +90,9 @@ sub display return 1; } +sub is_panel_done +{ + return $::config->get("preop.loginpanel.done"); +} + 1; |