1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
|
%# $Header: /home/cvs/cvsroot/freeside/rt/webrt/Ticket/Attic/Create.html,v 1.1 2002-08-12 06:17:09 ivan Exp $
%# Copyright 1996-2000 Jesse Vincent <jesse@fsck.com>
<& /Elements/Header, Title => "Create a new ticket" &>
<& /Elements/Tabs, current_toptab => "Ticket/Create.html" &>
<FORM ACTION="Display.html" METHOD="POST" ENCTYPE="multipart/form-data">
<INPUT TYPE=HIDDEN Name="id" VALUE="new">
<A NAME="top">
[<a class="currenttab">Show basics</a>] [<A HREF="#detail">Show details</a>]
<BR>
<& /Elements/TitleBoxStart, contentbg => "#cccccc", title => "Create a new ticket"&>
<div align=right><input type=submit value="Create"></div>
<TABLE border=0 cellpadding=0 cellspacing=0>
<TR><TD>Queue</TD>
<TD><% $QueueObj->Name %>
<INPUT TYPE=HIDDEN NAME=Queue Value="<%$QueueObj->Name%>">
</TD>
<TD>Status:
</TD>
<TD>
<& /Elements/SelectStatus, Name => "Status", Default=> 'new' &>
</TD>
<TD>
Owner:
</TD>
<TD>
<& /Elements/SelectOwner, Name => "ValueOfOwner", QueueObj => $QueueObj &>
</TD>
</TR>
<TR>
<TD>
Requestors:
</TD>
<TD COLSPAN=5>
<INPUT Name="Requestors" Value="<%$session{CurrentUser}->EmailAddress%>" SIZE=40>
</TD>
</TR>
<TR>
<TD>
Cc:
</TD>
<TD COLSPAN=5>
<INPUT NAME="Cc" SIZE=40>
</TD>
</TR>
<TR>
<TD>
Admin Cc:
</TD>
<TD COLSPAN=5>
<INPUT NAME="AdminCc" SIZE=40>
</TD>
</TR>
<TR>
<TD>
Subject:
</TD>
<TD COLSPAN=5>
<INPUT Name="Subject" SIZE=60 MAXSIZE=100 value="">
</TD>
</TR>
<TR>
<TD>
Attach file:
</TD>
<TD COLSPAN=5>
<INPUT TYPE=FILE NAME="Attach">
</TD>
</TR>
<TR>
<TD COLSPAN=6>
Describe the issue below:<br>
<& /Elements/MessageBox, QuoteTransaction => $QuoteTransaction &>
<BR>
</TD>
</TR>
<TR>
<TD ALIGN=RIGHT COLSPAN=2>
</TD>
</TR>
</TABLE>
<& /Elements/TitleBoxEnd &>
<& /Elements/Submit, Label => "Create"&>
<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
<A NAME="detail">
[<A HREF="#top">Show basics</a>] [<a class="currenttab">Show details</a>]
<BR>
<TABLE WIDTH="100%" BORDER=0>
<TR>
<TD WIDTH="50%" VALIGN=TOP>
<& /Elements/TitleBoxStart, title => 'The Basics',
title_class=> 'inverse',
color => "#993333" &>
<TABLE BORDER=0>
<TR><TD ALIGN=RIGHT>Priority:</TD><TD><input size=3 name="InitialPriority" value="<%$QueueObj->InitialPriority%>"></TD></TR>
<TR><TD ALIGN=RIGHT>Final Priority:</TD><TD><input size=3 name="FinalPriority" value="<%$QueueObj->FinalPriority%>"></TD></TR>
<TR><TD ALIGN=RIGHT>Time Worked:</TD><TD><input size=3 name="TimeWorked"></TD></TR>
<TR><TD ALIGN=RIGHT>Time Left:</TD><TD><input size=3 name="TimeLeft"></TD></TR>
</TABLE>
<& /Elements/TitleBoxEnd &>
<BR>
<BR>
<& /Elements/TitleBoxStart,
title_class=> 'inverse',
title => "Keyword Selections", color => "#993300"
&>
<TABLE BORDER=0>
% while ( my $KeywordSelect = $KeywordSelects->Next ) {
% my $Descendents = $KeywordSelect->KeywordObj->Descendents;
<TR><TD ALIGN=RIGHT>
<% $KeywordSelect->Name %></TD><TD>
<INPUT TYPE="hidden" NAME="KeywordSelectMagic<% $KeywordSelect->id %>" VALUE="1">
<SELECT NAME="KeywordSelect-<% $KeywordSelect->id %>"
<% $KeywordSelect->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} ) {
<OPTION VALUE="<% $kid %>"><% $Descendents->{$kid} %></OPTION>
% }
% if ( $KeywordSelect->Single) {
<OPTION VALUE="" SELECTED>(empty)</OPTION>
% }
</SELECT>
</TD></TR>
% }
</TABLE>
<& /Elements/TitleBoxEnd &>
</TD>
<TD VALIGN="TOP">
<& /Elements/TitleBoxStart, title => "Dates",
title_class=> 'inverse',
color => "#663366" &>
<TABLE BORDER=0>
<TR><TD ALIGN=RIGHT>Starts:</TD><TD><input size=10 name="Starts"></TD></TR>
<TR><TD ALIGN=RIGHT>Due:</TD><TD><input size=10 name="Due"></TD></TR>
</TABLE>
<& /Elements/TitleBoxEnd &>
<BR>
<& /Elements/TitleBoxStart, title => 'Relationships',
title_class=> 'inverse',
titleright => '', color=> "#336633" &>
<i>(Enter ticket ids or URLs, seperated with spaces)</i>
<TABLE BORDER=0>
<TR><TD ALIGN=RIGHT>Depends on</TD><TD><input size=10 name="new-DependsOn"></TD></TR>
<TR><TD ALIGN=RIGHT>Depended on by</TD><TD><input size=10 name="DependsOn-new"></TD></TR>
<TR><TD ALIGN=RIGHT>Parents</TD><TD><input size=10 name="new-MemberOf"></TD></TR>
<TR><TD ALIGN=RIGHT>Children</TD><TD><input size=10 name="MemberOf-new"></TD></TR>
<TR><TD ALIGN=RIGHT>Refers to</TD><TD><input size=10 name="new-RefersTo"></TD></TR>
<TR><TD ALIGN=RIGHT>Referred to by</TD><TD><input size=10 name="RefersTo-new"></TD></TR>
</TABLE>
<& /Elements/TitleBoxEnd &>
<BR>
</TD>
</TR>
</TABLE>
<& /Elements/Submit, Label => "Create"&>
</FORM>
<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
<BR><BR><BR><BR><BR><BR><BR><BR><BR><BR><BR>
<%INIT>
my $QueueObj = new RT::Queue($session{'CurrentUser'});
$QueueObj->Load($Queue) || Abort("Queue could not be loaded.");
my $KeywordSelects = $QueueObj->KeywordSelects;
</%INIT>
<%ARGS>
$DependsOn => undef
$DependedOnBy => undef
$MemberOf => undef
$QuoteTransaction => undef
$Queue => undef
</%ARGS>
|
