Line # Revision Author
1 3 ahitrov@rambler.ru <%args>
2
3 $root => $Contenido::Section::ROOT
4 $level => 3
5 $selected => undef
6
7 </%args>
8 <%init>
9
10 my $section_tree = exists $request->{section_tree} ? $request->{section_tree} : $keeper->get_section_tree();
11 $request->{section_tree} ||= $section_tree;
12
13 $m->comp('/contenido/components/select_index_tree_elem.msn',
14 section_tree => $section_tree,
15 root => $section_tree->{root} || $section_tree->{0},
16 offset => 0,
17 count_offset => $level,
18 selected => $selected
19 );
20
21 </%init>