%# $Header: /raid/cvsroot/rt/webrt/Ticket/Create.html,v 1.2 2001/11/06 23:07:07 jesse Exp $ %# Copyright 1996-2000 Jesse Vincent <& /Elements/Header, Title => "Create a new ticket" &> <& /Elements/Tabs, current_toptab => "Ticket/Create.html" &>

[Show basics] [Show details]
<& /Elements/TitleBoxStart, contentbg => "#cccccc", title => "Create a new ticket"&>

Queue	<% $QueueObj->Name %>	Status:	<& /Elements/SelectStatus, Name => "Status", Default=> 'new' &>	Owner:	<& /Elements/SelectOwner, Name => "ValueOfOwner", QueueObj => $QueueObj &>
Requestors:
Cc:
Admin Cc:
Subject:
Attach file:
Describe the issue below: <& /Elements/MessageBox, QuoteTransaction => $QuoteTransaction &>

<& /Elements/TitleBoxEnd &> <& /Elements/Submit, Label => "Create"&>






















































[Show basics] [Show details]

<& /Elements/TitleBoxStart, title => 'The Basics', title_class=> 'inverse', color => "#993333" &> Priority: Final Priority: Time Worked: Time Left: <& /Elements/TitleBoxEnd &> <& /Elements/TitleBoxStart, title_class=> 'inverse', title => "Keyword Selections", color => "#993300" &> % while ( my $KeywordSelect = $KeywordSelects->Next ) { % 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. % % foreach my $kid ( keys %{$Descendents} ) { <% $Descendents->{$kid} %> % } % if ( $KeywordSelect->Single) { (empty) % } <& /Elements/TitleBoxEnd &>

<& /Elements/TitleBoxStart, title => "Dates", title_class=> 'inverse', color => "#663366" &> Starts: Due: <& /Elements/TitleBoxEnd &> <& /Elements/TitleBoxStart, title => 'Relationships', title_class=> 'inverse', titleright => '', color=> "#336633" &> (Enter ticket ids or URLs, seperated with spaces) Depends on Depended on by Parents Children Refers to Referred to by <& /Elements/TitleBoxEnd &>

<& /Elements/Submit, Label => "Create"&>

<%INIT> my $QueueObj = new RT::Queue($session{'CurrentUser'}); $QueueObj->Load($Queue) || Abort("Queue could not be loaded."); my $KeywordSelects = $QueueObj->KeywordSelects; <%ARGS> $DependsOn => undef $DependedOnBy => undef $MemberOf => undef $QuoteTransaction => undef $Queue => undef