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) {
