1 %# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Elements/Attic/SelectQueue,v 1.1 2002-08-12 06:17:08 ivan Exp $
4 <INPUT NAME="<%$Name%>" size=25 DEFAULT="<%$d->Name%>">
6 <SELECT NAME ="<%$Name%>">
7 % if ($ShowNullOption) {
8 <OPTION VALUE="">-</OPTION>
10 % while (my $queue=$q->Next) {
11 % if ($ShowAllQueues || $queue->CurrentUserHasRight('CreateTicket')) {
12 <OPTION VALUE="<%$queue->Id%>" <%($queue->Id == $Default) && 'SELECTED'%>><%$queue->Name%>
13 % if (($Verbose) and ($queue->Description) ){
14 (<%$queue->Description%>)
32 my $q=new RT::Queues($session{'CurrentUser'});
35 my $d = new RT::Queue($session{'CurrentUser'});