% while ( my $KeywordSelect = $KeywordSelects->Next ) { % my $CurrentKeywords = $TicketObj->KeywordsObj($KeywordSelect->id); % my $Descendents = $KeywordSelect->KeywordObj->Descendents; % }

<% $KeywordSelect->Name %> Single ? "" : " MULTIPLE " %> SIZE=5> %# %# %# All of this cruft is so we have a 'no keyword' selector for single %# keywords that's only selected when there's no value. % % my $selected_keywords = 0; % foreach my $kid ( keys %{$Descendents} ) { % my $selected = 0; % if ($CurrentKeywords->HasEntry($kid)) { $selected_keywords++; $selected=1;} > <% $Descendents->{$kid} %> % } % if ( $KeywordSelect->Single) { >(empty) % }

<%INIT> my $KeywordSelects = $TicketObj->QueueObj->KeywordSelects; <%ARGS> $TicketObj => undef