lib/Arh/Dispatcher.pm

package Arh::Dispatcher;

use strict;
use warnings;

use Jifty::Dispatcher -base;

use Data::Dump qw/dump/;

before '*' => run {
        my $top = Jifty->web->navigation;
        my $user = Jifty->web->current_user;

        #set user => $user;
        #warn "##### ",dump( $user );

        $top->child( _('Units') => url => '/units' ); # if $user->id;
        $top->child( _('Pictures') => url => '/pictures' ); # if $user->id;

};

1;
1	dpavlin	6	package Arh::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			my $top = Jifty->web->navigation;
12			my $user = Jifty->web->current_user;
13
14			#set user => $user;
15			#warn "##### ",dump( $user );
16
17	dpavlin	8	$top->child( _('Units') => url => '/units' ); # if $user->id;
18	dpavlin	6	$top->child( _('Pictures') => url => '/pictures' ); # if $user->id;
19
20			};
21
22			1;