blob: f56dfe52c6276039011216f2d422576d51345391 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
<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>
|