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