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' );
        $top->child( _('Bulk create') => url => '/units/bulk' );

        if ( $user->id ) {
                # only for logged users
        }

};

on qr{^/pictures/show/(.+)$} => run {
        warn "## showing raw_pic $1\n";
        set filename => $1;
        show 'raw_pic';
};

under qr{^/units/bulk} => run {
        set per_page => 1;
        my $u = Arh::Model::UnitCollection->new;
        $u->unlimit;
        set page => $u->count unless get('page');
};

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	47	$top->child( _('Units') => url => '/units' );
18	dpavlin	67	$top->child( _('Bulk create') => url => '/units/bulk' );
19	dpavlin	47
20	dpavlin	37	if ( $user->id ) {
21	dpavlin	55	# only for logged users
22	dpavlin	37	}
23
24	dpavlin	6	};
25
26	dpavlin	67	on qr{^/pictures/show/(.+)$} => run {
27	dpavlin	51	warn "## showing raw_pic $1\n";
28			set filename => $1;
29			show 'raw_pic';
30			};
31
32	dpavlin	67	under qr{^/units/bulk} => run {
33			set per_page => 1;
34	dpavlin	68	my $u = Arh::Model::UnitCollection->new;
35			$u->unlimit;
36			set page => $u->count unless get('page');
37	dpavlin	67	};
38
39	dpavlin	6	1;