rt/webrt/Elements/SelectKeywordOptions

   1 <PERL>
   2 while (my $keyword = $keywords->Next()) {
   3     my ($selected);
   4     if $keyword->Id == $default
   5 </PERL>
   6 <OPTION VALUE="<%$keyword->id%>"><% '-' x $depth %><%$keyword->Name%></OPTION>
   7 <& SelectKeywordOptions, depth => ($depth+1), root => $keyword->id &>
   8 %}
   9 <%INIT>
  10
  11 my $keywords = new RT::Keywords($session{'CurrentUser'});
  12 $keywords->LimitToParent($root);
  13
  14 </%INIT>
  15 <%ARGS>
  16 $root => undef
  17 $depth => 0
  18 </%ARGS>