rt/webrt/Ticket/Create.html

   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>
   3
   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">
   8 <A NAME="top">
   9
  10
  11 [<a class="currenttab">Show basics</a>] [<A HREF="#detail">Show details</a>]
  12 <BR>
  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>
  16 <TR><TD>Queue</TD>
  17 <TD><% $QueueObj->Name %>
  18 <INPUT TYPE=HIDDEN NAME=Queue Value="<%$QueueObj->Name%>">
  19 </TD>
  20 <TD>Status:
  21 </TD>
  22 <TD>
  23 <& /Elements/SelectStatus, Name => "Status", Default=> 'new' &>
  24 </TD>
  25 <TD>
  26 Owner:
  27 </TD>
  28 <TD>
  29 <& /Elements/SelectOwner, Name => "ValueOfOwner", QueueObj => $QueueObj &>
  30 </TD>
  31 </TR>
  32 <TR>
  33 <TD>
  34 Requestors:
  35 </TD>
  36 <TD COLSPAN=5>
  37 <INPUT Name="Requestors" Value="<%$session{CurrentUser}->EmailAddress%>" SIZE=40>
  38 </TD>
  39 </TR>
  40 <TR>
  41 <TD>
  42 Cc:
  43 </TD>
  44 <TD COLSPAN=5>
  45  <INPUT NAME="Cc" SIZE=40>
  46 </TD>
  47 </TR>
  48 <TR>
  49 <TD>
  50 Admin Cc:
  51 </TD>
  52 <TD COLSPAN=5>
  53  <INPUT NAME="AdminCc" SIZE=40>
  54 </TD>
  55 </TR>
  56 <TR>
  57 <TD>
  58 Subject:
  59 </TD>
  60 <TD COLSPAN=5>
  61 <INPUT Name="Subject" SIZE=60 MAXSIZE=100 value="">
  62 </TD>
  63 </TR>
  64 <TR>
  65 <TD>
  66 Attach file:
  67 </TD>
  68 <TD COLSPAN=5>
  69 <INPUT TYPE=FILE NAME="Attach">
  70 </TD>
  71 </TR>
  72 <TR>
  73 <TD COLSPAN=6>
  74 Describe the issue below:<br>
  75 <& /Elements/MessageBox, QuoteTransaction => $QuoteTransaction &>
  76
  77 <BR>
  78 </TD>
  79 </TR>
  80 <TR>
  81 <TD ALIGN=RIGHT COLSPAN=2>
  82 </TD>
  83 </TR>
  84 </TABLE>
  85 <& /Elements/TitleBoxEnd &>
  86 <& /Elements/Submit, Label => "Create"&>
  87
  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>
  93
  94 <A NAME="detail">
  95         [<A HREF="#top">Show basics</a>] [<a class="currenttab">Show details</a>]
  96 <BR>
  97 <TABLE WIDTH="100%" BORDER=0>
  98 <TR>
  99 <TD WIDTH="50%" VALIGN=TOP>
 100
 101           <& /Elements/TitleBoxStart, title => 'The Basics',
 102                 title_class=> 'inverse',
 103                 color => "#993333" &>
 104 <TABLE BORDER=0>
 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>
 109 </TABLE>
 110 <& /Elements/TitleBoxEnd &>
 111 <BR>
 112 <BR>
 113
 114
 115  <& /Elements/TitleBoxStart,
 116                 title_class=> 'inverse',
 117                 title => "Keyword Selections", color => "#993300"
 118   &>
 119 <TABLE BORDER=0>
 120 % while ( my $KeywordSelect = $KeywordSelects->Next ) {
 121 %   my $Descendents = $KeywordSelect->KeywordObj->Descendents;
 122      <TR><TD ALIGN=RIGHT>
 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>
 127 %#
 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.
 130 %
 131 % foreach my $kid ( keys %{$Descendents} ) {
 132               <OPTION VALUE="<% $kid %>"><% $Descendents->{$kid} %></OPTION>
 133 %   }
 134 %   if ( $KeywordSelect->Single) {
 135 <OPTION VALUE="" SELECTED>(empty)</OPTION>
 136 % }
 137             </SELECT>
 138       </TD></TR>
 139 % }
 140
 141 </TABLE>
 142 <& /Elements/TitleBoxEnd &>
 143
 144 </TD>
 145
 146 <TD VALIGN="TOP">
 147 <& /Elements/TitleBoxStart, title => "Dates",
 148                 title_class=> 'inverse',
 149                  color => "#663366" &>
 150
 151 <TABLE BORDER=0>
 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>
 154 </TABLE>
 155 <& /Elements/TitleBoxEnd &>
 156 <BR>
 157 <& /Elements/TitleBoxStart, title => 'Relationships',
 158         title_class=> 'inverse',
 159         titleright => '', color=> "#336633" &>
 160
 161 <i>(Enter ticket ids or URLs, seperated with spaces)</i>
 162 <TABLE BORDER=0>
 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>
 169
 170
 171 </TABLE>
 172 <& /Elements/TitleBoxEnd &>
 173 <BR>
 174
 175 </TD>
 176 </TR>
 177 </TABLE>
 178 <& /Elements/Submit, Label => "Create"&>
 179 </FORM>
 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>
 185
 186 <%INIT>
 187 my $QueueObj = new RT::Queue($session{'CurrentUser'});
 188 $QueueObj->Load($Queue) || Abort("Queue could not be loaded.");
 189 my $KeywordSelects = $QueueObj->KeywordSelects;
 190
 191 </%INIT>
 192
 193 <%ARGS>
 194 $DependsOn => undef
 195 $DependedOnBy => undef
 196 $MemberOf => undef
 197 $QuoteTransaction => undef
 198 $Queue => undef
 199 </%ARGS>