/[SQLSession]/trunk/lib/SQLSession/Dispatcher.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/SQLSession/Dispatcher.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 91 by dpavlin, Mon Feb 5 21:29:48 2007 UTC revision 108 by dpavlin, Sun Apr 1 12:52:28 2007 UTC
# Line 29  before '*' => run { Line 29  before '*' => run {
29          } else {          } else {
30                  $top->child( 'Login' => url => '/login' );                  $top->child( 'Login' => url => '/login' );
31                  $top->child( 'Signup' => url => '/signup' );                  $top->child( 'Signup' => url => '/signup' );
32                    $top->child( 'Password reminder' => url => '/passwordreminder' );
33          }          }
34    
35          if ( Jifty->web->current_user->role( 'admin' ) ) {          if ( Jifty->web->current_user->role( 'admin' ) ) {
# Line 44  under qr{sql/(\d+)} => run { Line 45  under qr{sql/(\d+)} => run {
45          my $q = SQLSession::Model::Query->new();          my $q = SQLSession::Model::Query->new();
46          $q->load( $1 ) or next_rule;          $q->load( $1 ) or next_rule;
47    
48  #       warn "q = ",dump( $q );          set parent => $1;
   
49          set q => $q;          set q => $q;
50    
51    #       Jifty->log->debug( "parent = $1, q = ",dump($q) );
52    
53          show '/sql';          show '/sql';
54    
55  };  };
# Line 69  on 'new' => run { Line 71  on 'new' => run {
71          show '/sql';          show '/sql';
72  };  };
73    
74  on '/' => run {  on '/' => redirect '/list';
         redirect '/list';  
 };  
75    
76  on qr{^/feed/(atom|rss|rss2)}, run {  on qr{^/feed/(atom|rss|rss2)}, run {
77          my $type = 'RSS';          my $type = 'RSS';
Legend:
Removed from v.91  
changed lines
  Added in v.108
  ViewVC Help
Powered by ViewVC 1.1.26