rt/html/Ticket/Elements/EditCustomFields

   1 %# BEGIN LICENSE BLOCK
   2 %#
   3 %# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
   4 %#
   5 %# (Except where explictly superceded by other copyright notices)
   6 %#
   7 %# This work is made available to you under the terms of Version 2 of
   8 %# the GNU General Public License. A copy of that license should have
   9 %# been provided with this software, but in any event can be snarfed
  10 %# from www.gnu.org.
  11 %#
  12 %# This work is distributed in the hope that it will be useful, but
  13 %# WITHOUT ANY WARRANTY; without even the implied warranty of
  14 %# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15 %# General Public License for more details.
  16 %#
  17 %# Unless otherwise specified, all modifications, corrections or
  18 %# extensions to this work which alter its source code become the
  19 %# property of Best Practical Solutions, LLC when submitted for
  20 %# inclusion in the work.
  21 %#
  22 %#
  23 %# END LICENSE BLOCK
  24 <table>
  25 <tr>
  26 <td valign="top" width="50%">
  27 <table>
  28
  29 % my @entry_fields;
  30 % my $i;
  31 % my $cfcount = $CustomFields->Count;
  32 %  $cfcount++ if ($cfcount % 2) ; # if we have an odd number of
  33 % #custom fields, fudge it so we know where to put in the table break
  34 % while (my $CustomField = $CustomFields->Next()) {
  35 % if ($cfcount == 2 * $i) {
  36 </table>
  37 </td>
  38 <td valign="top" width="50%">
  39 <table>
  40 % }
  41 % $i++;
  42   <tr>
  43     <td class="labeltop">
  44       <b><%$CustomField->Name%></b><br>
  45       <i><%$CustomField->FriendlyType%></i>
  46     </td>
  47     <td class="entry"><& EditCustomField, TicketObj => $TicketObj, CustomField => $CustomField, NamePrefix => $NamePrefix &></td>
  48   </tr>
  49 % }
  50 </table>
  51 </td>
  52 </tr>
  53 </table>
  54
  55 <%INIT>
  56 my $CustomFields;
  57 my $NamePrefix;
  58
  59 if ($TicketObj) {
  60  $CustomFields = $TicketObj->QueueObj->CustomFields();
  61   $NamePrefix = "Ticket-".$TicketObj->Id."-CustomField-";
  62
  63 } else {
  64  $CustomFields = $QueueObj->CustomFields();
  65   $NamePrefix = "CustomField-";
  66 }
  67
  68
  69
  70 </%INIT>
  71 <%ARGS>
  72 $TicketObj => undef
  73 $QueueObj => undef
  74 </%ARGS>