while (my $keyword = $keywords->Next()) {
my ($selected);
if $keyword->Id == $default
<& 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>