[Yapcom checkin] rev 21 - lib/YAPC

[prev] [thread] [next] [lurker] [Date index for 2003/11/24]

Author: gabor
Date: 2003-11-24 17:13:05 +0200 (Mon, 24 Nov 2003)
New Revision: 21

Modified:
   lib/YAPC/Organizer.pm
Log:
is_logged_in method added

Modified: lib/YAPC/Organizer.pm
===================================================================
--- lib/YAPC/Organizer.pm	2003-11-24 15:06:23 UTC (rev 20)
+++ lib/YAPC/Organizer.pm	2003-11-24 15:13:05 UTC (rev 21)
@@ -66,7 +66,15 @@
 }
 
 
+sub is_logged_in {
+    my $self = shift; 
+    my $q = $self->query;
 
+    # retreive the Cookie and check if this represents a valid user
+    my $cookie = $q->cookie('Yapcom');
+    YAPC::Login->get_user_id(cookie => $cookie);
+}
+
 sub default {
     my $self = shift; 
     my $q = $self->query;
@@ -81,9 +89,7 @@
 
     my $filename = "$templates_dir/$page.tmpl";
 
-    # retreive the Cookie and check if this represents a valid user
-    my $cookie = $q->cookie('Yapcom');
-    my $id = YAPC::Login->get_user_id(cookie => $cookie);
+    my $id = $self->is_logged_in;
 
     if ($page eq 'logout') {
        if ($id) { 
@@ -151,9 +157,7 @@
     my $self = shift;
     my $q = $self->query;
 
-    # is user logged in ?
-    my $cookie = $q->cookie('Yapcom');
-    my $id = YAPC::Login->get_user_id(cookie => $cookie);
+    my $id = $self->is_logged_in;
     if (not $id) {
         my $t = $self->_server_page('login', "$templates_dir/login.tmpl");
         $t->param(next => "change_password.html");

• [Yapcom checkin] rev 21 - lib/YAPC svn 17:13 on 24 Nov 2003

Generated at 18:06 on 24 Nov 2003 by mariachi 0.51