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 );

        if ( $user->id ) {

                $top->child( _('Units') => url => '/units' );
                $top->child( _('Pictures') => url => '/pictures' );
        
        }

};

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	37	if ( $user->id ) {
18	dpavlin	6
19	dpavlin	37	$top->child( _('Units') => url => '/units' );
20			$top->child( _('Pictures') => url => '/pictures' );
21
22			}
23
24	dpavlin	6	};
25
26			1;