1 %# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Ticket/Attic/Create.html,v 1.1 2002-08-12 06:17:09 ivan Exp $
2 %# Copyright 1996-2000 Jesse Vincent <jesse@fsck.com>
4 <& /Elements/Header, Title => "Create a new ticket" &>
5 <& /Elements/Tabs, current_toptab => "Ticket/Create.html" &>
6 <FORM ACTION="Display.html" METHOD="POST" ENCTYPE="multipart/form-data">
7 <INPUT TYPE=HIDDEN Name="id" VALUE="new">
11 [<a class="currenttab">Show basics</a>] [<A HREF="#detail">Show details</a>]
13 <& /Elements/TitleBoxStart, contentbg => "#cccccc", title => "Create a new ticket"&>
14 <div align=right><input type=submit value="Create"></div>
15 <TABLE border=0 cellpadding=0 cellspacing=0>
17 <TD><% $QueueObj->Name %>
18 <INPUT TYPE=HIDDEN NAME=Queue Value="<%$QueueObj->Name%>">
23 <& /Elements/SelectStatus, Name => "Status", Default=> 'new' &>
29 <& /Elements/SelectOwner, Name => "ValueOfOwner", QueueObj => $QueueObj &>
37 <INPUT Name="Requestors" Value="<%$session{CurrentUser}->EmailAddress%>" SIZE=40>
45 <INPUT NAME="Cc" SIZE=40>
53 <INPUT NAME="AdminCc" SIZE=40>
61 <INPUT Name="Subject" SIZE=60 MAXSIZE=100 value="">
69 <INPUT TYPE=FILE NAME="Attach">
74 Describe the issue below:<br>
75 <& /Elements/MessageBox, QuoteTransaction => $QuoteTransaction &>
81 <TD ALIGN=RIGHT COLSPAN=2>
85 <& /Elements/TitleBoxEnd &>
86 <& /Elements/Submit, Label => "Create"&>
88 <BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
89 <BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
90 <BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
91 <BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
92 <BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
95 [<A HREF="#top">Show basics</a>] [<a class="currenttab">Show details</a>]
97 <TABLE WIDTH="100%" BORDER=0>
99 <TD WIDTH="50%" VALIGN=TOP>
101 <& /Elements/TitleBoxStart, title => 'The Basics',
102 title_class=> 'inverse',
103 color => "#993333" &>
105 <TR><TD ALIGN=RIGHT>Priority:</TD><TD><input size=3 name="InitialPriority" value="<%$QueueObj->InitialPriority%>"></TD></TR>
106 <TR><TD ALIGN=RIGHT>Final Priority:</TD><TD><input size=3 name="FinalPriority" value="<%$QueueObj->FinalPriority%>"></TD></TR>
107 <TR><TD ALIGN=RIGHT>Time Worked:</TD><TD><input size=3 name="TimeWorked"></TD></TR>
108 <TR><TD ALIGN=RIGHT>Time Left:</TD><TD><input size=3 name="TimeLeft"></TD></TR>
110 <& /Elements/TitleBoxEnd &>
115 <& /Elements/TitleBoxStart,
116 title_class=> 'inverse',
117 title => "Keyword Selections", color => "#993300"
120 % while ( my $KeywordSelect = $KeywordSelects->Next ) {
121 % my $Descendents = $KeywordSelect->KeywordObj->Descendents;
123 <% $KeywordSelect->Name %></TD><TD>
124 <INPUT TYPE="hidden" NAME="KeywordSelectMagic<% $KeywordSelect->id %>" VALUE="1">
125 <SELECT NAME="KeywordSelect-<% $KeywordSelect->id %>"
126 <% $KeywordSelect->Single ? "" : " MULTIPLE " %> SIZE=5>
128 %# All of this cruft is so we have a 'no keyword' selector for single
129 %# keywords that's only selected when there's no value.
131 % foreach my $kid ( keys %{$Descendents} ) {
132 <OPTION VALUE="<% $kid %>"><% $Descendents->{$kid} %></OPTION>
134 % if ( $KeywordSelect->Single) {
135 <OPTION VALUE="" SELECTED>(empty)</OPTION>
142 <& /Elements/TitleBoxEnd &>
147 <& /Elements/TitleBoxStart, title => "Dates",
148 title_class=> 'inverse',
149 color => "#663366" &>
152 <TR><TD ALIGN=RIGHT>Starts:</TD><TD><input size=10 name="Starts"></TD></TR>
153 <TR><TD ALIGN=RIGHT>Due:</TD><TD><input size=10 name="Due"></TD></TR>
155 <& /Elements/TitleBoxEnd &>
157 <& /Elements/TitleBoxStart, title => 'Relationships',
158 title_class=> 'inverse',
159 titleright => '', color=> "#336633" &>
161 <i>(Enter ticket ids or URLs, seperated with spaces)</i>
163 <TR><TD ALIGN=RIGHT>Depends on</TD><TD><input size=10 name="new-DependsOn"></TD></TR>
164 <TR><TD ALIGN=RIGHT>Depended on by</TD><TD><input size=10 name="DependsOn-new"></TD></TR>
165 <TR><TD ALIGN=RIGHT>Parents</TD><TD><input size=10 name="new-MemberOf"></TD></TR>
166 <TR><TD ALIGN=RIGHT>Children</TD><TD><input size=10 name="MemberOf-new"></TD></TR>
167 <TR><TD ALIGN=RIGHT>Refers to</TD><TD><input size=10 name="new-RefersTo"></TD></TR>
168 <TR><TD ALIGN=RIGHT>Referred to by</TD><TD><input size=10 name="RefersTo-new"></TD></TR>
172 <& /Elements/TitleBoxEnd &>
178 <& /Elements/Submit, Label => "Create"&>
180 <BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
181 <BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
182 <BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
183 <BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
184 <BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
187 my $QueueObj = new RT::Queue($session{'CurrentUser'});
188 $QueueObj->Load($Queue) || Abort("Queue could not be loaded.");
189 my $KeywordSelects = $QueueObj->KeywordSelects;
195 $DependedOnBy => undef
197 $QuoteTransaction => undef