Author: spadkins Date: Mon Apr 1 14:43:40 2013 New Revision: 15606 Modified: p5ee/trunk/app-user/TODO p5ee/trunk/app-user/lib/App/Widget/CreateAccountPane.pm p5ee/trunk/app-user/lib/App/Widget/LoginPane.pm Log: minor changes Modified: p5ee/trunk/app-user/TODO ============================================================================== --- p5ee/trunk/app-user/TODO (original) +++ p5ee/trunk/app-user/TODO Mon Apr 1 14:43:40 2013 @@ -4,6 +4,22 @@ ###################################################################### To Get to Release 1.0 + o Implement App::Authentication::CGI + o Implement App::Authentication::Form + o with cookie + o without cookie + o Implement a CSS App::Widget::TabbedSelector + o Implement a better top logo + o Improve the CSS approach for all pages + o Implement require_ssl + o Implement autologin if the cookie exists + o Implement the user-login-login event + o + o Implement the user-create-create event + o insert row + o send email + o validate from email + o Implement the user-change-change event Future (Someday) Modified: p5ee/trunk/app-user/lib/App/Widget/CreateAccountPane.pm ============================================================================== --- p5ee/trunk/app-user/lib/App/Widget/CreateAccountPane.pm (original) +++ p5ee/trunk/app-user/lib/App/Widget/CreateAccountPane.pm Mon Apr 1 14:43:40 2013 @@ -36,11 +36,18 @@ &App::sub_entry if ($App::trace); my ($self, $wname, $event, @args) = @_; - my $name = $self->{name}; + my $context = $self->{context}; + my $name = $self->{name}; + my $options = $context->{options}; + my $app = $options->{app}; + my $login_pane_name = "${app}-login"; + my $handled = 0; if ($wname eq "${name}-login") { - # do something + my $selector_widget = $context->widget("${app}-selector"); + $selector_widget->select("wname", $login_pane_name); + $selector_widget->open_selected_exclusively(); $handled = 1; } elsif ($wname eq "${name}-create") { Modified: p5ee/trunk/app-user/lib/App/Widget/LoginPane.pm ============================================================================== --- p5ee/trunk/app-user/lib/App/Widget/LoginPane.pm (original) +++ p5ee/trunk/app-user/lib/App/Widget/LoginPane.pm Mon Apr 1 14:43:40 2013 @@ -36,7 +36,12 @@ &App::sub_entry if ($App::trace); my ($self, $wname, $event, @args) = @_; - my $name = $self->{name}; + my $context = $self->{context}; + my $name = $self->{name}; + my $options = $context->{options}; + my $app = $options->{app}; + my $create_pane_name = "${app}-create"; + my $handled = 0; if ($wname eq "${name}-login") { @@ -44,7 +49,9 @@ $handled = 1; } elsif ($wname eq "${name}-create") { - # do something + my $selector_widget = $context->widget("${app}-selector"); + $selector_widget->select("wname", $create_pane_name); + $selector_widget->open_selected_exclusively(); $handled = 1; } if (!$handled) {