%while ( $keywordselect = $keywordselects->Next ) {
<%$keywordselect->id%>: ( <%$keywordselect->Parent%>: <%$keywordselect->KeywordObj->Name%> )
%}
<%INIT>
use RT::KeywordSelects;
my $keywordselect;
my $keywordselects = new RT::KeywordSelects $session{CurrentUser};
$keywordselects->UnLimit;
%INIT>