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
        }

};

before '/__jifty/admin/model/Unit' => run {
        redirect '/units';
};

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

under qr{^/unit/(\d+)} => run {
        set unit => $1;
        set id => $1;
        show '/units/single';
};

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	71	before '/__jifty/admin/model/Unit' => run {
27			redirect '/units';
28			};
29
30	dpavlin	67	on qr{^/pictures/show/(.+)$} => run {
31	dpavlin	51	warn "## showing raw_pic $1\n";
32			set filename => $1;
33			show 'raw_pic';
34			};
35
36	dpavlin	67	under qr{^/units/bulk} => run {
37			set per_page => 1;
38	dpavlin	68	my $u = Arh::Model::UnitCollection->new;
39			$u->unlimit;
40			set page => $u->count unless get('page');
41	dpavlin	67	};
42
43	dpavlin	80	under qr{^/unit/(\d+)} => run {
44			set unit => $1;
45			set id => $1;
46			show '/units/single';
47			};
48
49	dpavlin	6	1;