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

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