develooper Front page | perl.cvs.p5ee | Postings from April 2013

[svn:p5ee] r15606 - in p5ee/trunk/app-user: . lib/App/Widget

From:
spadkins
Date:
April 1, 2013 21:43
Subject:
[svn:p5ee] r15606 - in p5ee/trunk/app-user: . lib/App/Widget
Message ID:
20130401214341.330AE184BB6@xx12.develooper.com
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) {



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About