%# $Header: /raid/cvsroot/rt/webrt/GroupService/Create.html,v 1.2 2001/11/06 23:07:02 jesse Exp $ %# Copyright 1996-2001 Jesse Vincent <& /GroupService/Elements/Header, Title => "Create a request" &>
<& /Elements/TitleBoxStart, contentbg => "#cccccc", title => "Create a new ticket" &>
Queue: <% $QueueObj->Name %>
Requestors:
Cc: (Separate multiple addresses with comma ",")
Subject:
Attach file:
Describe the issue below:
<& /Elements/MessageBox &>
% while ( my $KeywordSelect = $KeywordSelects->Next ) { % my $Descendents = $KeywordSelect->KeywordObj->Descendents; % }
<% $KeywordSelect->Name %>
<& /Elements/TitleBoxEnd &> <& /Elements/Submit, Label => "Create ticket"&>
<%ARGS> $Queue => undef <%INIT> # my $q=new RT::Queues($session{'CurrentUser'}); # # $q->UnLimit; # my $q1 = $q->Next; # $Queue = $q1->Id; # # $Queue = 3; my $QueueObj = new RT::Queue($session{'CurrentUser'}); $QueueObj->Load($Queue) || Abort("Queue could not be loaded."); my $KeywordSelects = $QueueObj->KeywordSelects;