3 |
use strict; |
use strict; |
4 |
use warnings; |
use warnings; |
5 |
|
|
6 |
|
=head1 NAME |
7 |
|
|
8 |
|
A3C::Displatcher |
9 |
|
|
10 |
|
=head1 DESCRIPTION |
11 |
|
|
12 |
|
Create top-level menu navigation |
13 |
|
|
14 |
|
=cut |
15 |
|
|
16 |
use Jifty::Dispatcher -base; |
use Jifty::Dispatcher -base; |
17 |
|
|
18 |
use Data::Dump qw/dump/; |
use Data::Dump qw/dump/; |
27 |
|
|
28 |
# Jifty->log->debug("current_user = ", dump( $user )); |
# Jifty->log->debug("current_user = ", dump( $user )); |
29 |
|
|
30 |
$top->child( _('Find People') => url => '/search-users' ); |
$top->child( _('People') => url => '/people' ); |
31 |
$top->child( _('Sync Organization') => url => '/sync' ); |
my $o = $top->child( _('Organizations') => url => '/organizations' ); |
32 |
|
$o->child( _('New') => url => '/organizations/new' ); |
33 |
|
|
34 |
|
$top->child( _('Sync') => url => '/sync' ); |
35 |
|
$top->child( _('LDAP') => url => '/ldap' ); |
36 |
|
my $strix = $top->child( _('Strix') => url => '/strix' ); |
37 |
|
$strix->child( _('Name differences') => url => '/strix/name_diff' ); |
38 |
|
$strix->child( _('SQL') => url => '/strix/sql' ); |
39 |
|
$strix->child( _('Sitemap') => url => '/strix/sitemap' ); |
40 |
|
$strix->child( _('Layout') => url => '/strix/layout' ); |
41 |
|
|
42 |
# $top->child( 'Prefs' => url => '/prefs' ) if Jifty->web->current_user->id; |
# $top->child( 'Prefs' => url => '/prefs' ) if Jifty->web->current_user->id; |
43 |
|
|
44 |
}; |
}; |