<PERL>
while (my $keyword = $keywords->Next()) {
    my ($selected);
    if $keyword->Id == $default
</PERL>
<OPTION VALUE="<%$keyword->id%>"><% '-' x $depth %><%$keyword->Name%></OPTION>
<& SelectKeywordOptions, depth => ($depth+1), root => $keyword->id &>
%}
<%INIT>

my $keywords = new RT::Keywords($session{'CurrentUser'});
$keywords->LimitToParent($root);

</%INIT>
<%ARGS>
$root => undef
$depth => 0
</%ARGS>