1 |
dpavlin |
50 |
package A3C::Dispatcher; |
2 |
|
|
|
3 |
|
|
use strict; |
4 |
|
|
use warnings; |
5 |
|
|
|
6 |
|
|
use Jifty::Dispatcher -base; |
7 |
|
|
|
8 |
|
|
use Data::Dump qw/dump/; |
9 |
|
|
|
10 |
|
|
before '*' => run { |
11 |
dpavlin |
65 |
Jifty->web->tangent(url => '/ldaplogin') if (! Jifty->web->current_user->id); |
12 |
dpavlin |
50 |
my $top = Jifty->web->navigation; |
13 |
|
|
my $user = Jifty->web->current_user->user_object; |
14 |
|
|
|
15 |
|
|
# Jifty->log->debug("current_user = ", dump( $user )); |
16 |
|
|
|
17 |
|
|
$top->child( _('Find People') => url => '/search-users' ); |
18 |
dpavlin |
55 |
$top->child( _('Sync Organization') => url => '/sync' ); |
19 |
dpavlin |
50 |
# $top->child( 'Prefs' => url => '/prefs' ) if Jifty->web->current_user->id; |
20 |
|
|
|
21 |
|
|
}; |
22 |
|
|
|
23 |
|
|
1; |