/[A3C]/lib/A3C/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 /lib/A3C/Dispatcher.pm

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

revision 197 by dpavlin, Tue Jun 17 21:32:12 2008 UTC revision 208 by dpavlin, Thu Jun 19 21:24:26 2008 UTC
# Line 31  before '*' => run { Line 31  before '*' => run {
31          my $o = $top->child( _('Organizations') => url => '/organizations' );          my $o = $top->child( _('Organizations') => url => '/organizations' );
32          $o->child( _('New') => url => '/organizations/new' );          $o->child( _('New') => url => '/organizations/new' );
33    
34          $top->child( _('Sync') => url => '/sync' );          my $ldap = $top->child( _('LDAP'), url => '/ldap/sync' );       # FIXME some kind of top-level ldap page?
35          $top->child( _('LDAP') => url => '/ldap' );          $ldap->child( _('Sync') => url => '/ldap/sync' );
36            $ldap->child( _('Dump') => url => '/ldap/dump' );
37    
38          my $strix = $top->child( _('Strix') => url => '/strix' );          my $strix = $top->child( _('Strix') => url => '/strix' );
39          $strix->child( _('Name differences') => url => '/strix/name_diff' );          $strix->child( _('Name differences') => url => '/strix/name_diff' );
40          $strix->child( _('SQL') => url => '/strix/sql' );          $strix->child( _('SQL') => url => '/strix/sql' );
41          $strix->child( _('Navigation') => url => '/strix/site-navigation' );          $strix->child( _('Navigation') => url => '/strix/navigation' );
42          $strix->child( _('Layout') => url => '/strix/layout' );          $strix->child( _('Layout') => url => '/strix/layout' );
43    
44  #       $top->child( 'Prefs' => url => '/prefs' ) if Jifty->web->current_user->id;  #       $top->child( 'Prefs' => url => '/prefs' ) if Jifty->web->current_user->id;
45    
46  };  };
47    
 sub first_instance {  
         my $selection = A3C::Model::StrixInstanceSelectionCollection->new;  
         $selection->unlimit;  
         my $instance = $selection->first->instance->instance;  
         warn "# using default instance $instance";  
         return $instance;  
 }  
   
 before '/strix/' => run {  
   
         if ( ! get('instance') ) {  
                 set 'instance' => first_instance;  
         }  
   
 };  
   
48  1;  1;
Legend:
Removed from v.197  
changed lines
  Added in v.208
  ViewVC Help
Powered by ViewVC 1.1.26