Line # Revision Author
1 296 ahitrov <%init>
2
3 my $prj = $request->{project};
4 my $profile = $request->{project_profile};
5 my $root = $request->{project_section};
6
7 my $subsections = $keeper->get_sections (
8 s => $root->id,
9 class => 'promosuite::SubSection',
10 status => 1,
11 order_by => 'sorder',
12 return_mode => 'array_ref',
13 );
14 $request->{subsections} = $subsections;
15
16 $m->call_next;
17
18 </%init>