[Yapcom-commit] rev 91 - lib/YAPC

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

Author: gabor
Date: 2003-11-29 11:26:23 +0200 (Sat, 29 Nov 2003)
New Revision: 91

Modified:
   lib/YAPC/Organizer.pm
Log:
call the real run_mode after login

Modified: lib/YAPC/Organizer.pm
===================================================================
--- lib/YAPC/Organizer.pm	2003-11-29 09:03:50 UTC (rev 90)
+++ lib/YAPC/Organizer.pm	2003-11-29 09:26:23 UTC (rev 91)
@@ -138,6 +138,7 @@
 sub is_admin_user {
    my $self = shift;
    my $id = shift;
+   return 0 if not defined $id;
 
    my ($person) = YAPC::Person->search(id => $id); 
    return grep {$_ eq $person->email} @YAPC::Config::admins;
@@ -443,6 +444,10 @@
     $self->header_props(-cookie => $cookie);
 
      my $page = $q->param("next") || 'user_account';
+     if (grep {$_ eq $page} @run_modes) {
+       return $self->$page;
+     } 
+
      my $tm = $self->_server_page($page);
      return $tm->output;
 }

• [Yapcom-commit] rev 91 - lib/YAPC svn 11:26 on 29 Nov 2003

Generated at 12:20 on 29 Nov 2003 by mariachi 0.51