rt/webrt/Ticket/Elements/ShowKeywordSelects

   1 <TABLE>
   2 % while ( my $KeywordSelect = $KeywordSelects->Next ) {
   3     <TR>
   4       <TD VALIGN=TOP>
   5         <% $KeywordSelect->Name %><BR>
   6       </TD>
   7       <TD VALIGN=TOP>
   8         <UL>
   9 % my $Keywords = $Ticket->KeywordsObj($KeywordSelect->Id);
  10 % while (my $Keyword = $Keywords->Next) {
  11         <li><% $Keyword->KeywordObj->RelativePath($KeywordSelect->KeywordObj) |n %></li>
  12
  13 %   }
  14         </ul>
  15       </TD>
  16     </TR>
  17 % }
  18 </TABLE>
  19
  20 <%INIT>
  21 my $KeywordSelects = $Ticket->QueueObj->KeywordSelects;
  22 </%INIT>
  23
  24 <%ARGS>
  25 $Ticket => undef
  26 </%ARGS>