1 <SELECT NAME=<%$Name%> <%$Size%> <%$Multiple%>>
2 <OPTION VALUE="">-</OPTION>
3 <OPTION VALUE="NULL">(empty)</OPTION>
4 % foreach my $kid ( keys %{$Descendents} ) {
5 <OPTION VALUE="<% $kid %>"
6 %if ($kid == $Default) {
9 ><% $Descendents->{$kid} %></OPTION>
16 unless (defined $KeywordObj) {
17 $KeywordObj = new RT::Keyword($session{'CurrentUser'});
18 $KeywordObj->Load($Root);
20 my $Descendents = $KeywordObj->Descendents();
23 $Multiple = "MULTIPLE";