while (my $keyword = $keywords->Next()) { my ($selected); if $keyword->Id == $default <% '-' x $depth %><%$keyword->Name%> <& SelectKeywordOptions, depth => ($depth+1), root => $keyword->id &> %} <%INIT> my $keywords = new RT::Keywords($session{'CurrentUser'}); $keywords->LimitToParent($root); <%ARGS> $root => undef $depth => 0