[Rt-commit] r10028 - rtir/branches/2.3-EXPERIMENTAL/html/RTIR

[ruz at bestpractical.com]

Author: ruz
Date: Thu Dec 20 15:16:36 2007
New Revision: 10028

Modified:
   rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Create.html

Log:
* inherit IPs in the forms when parent or child is available

Modified: rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Create.html
==============================================================================
--- rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Create.html	(original)
+++ rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Create.html	Thu Dec 20 15:16:36 2007
@@ -252,13 +252,21 @@
 % }
   <tr>
     <td class="label"><%loc("IP address")%>:</td>
+<%PERL>
+my $ip_default = $ARGS{'IP-Value'};
+if ( !$ip_default && $IncidentObj ) {
+    $ip_default = join "\n", grep $_, map $_->Content,
+        @{ $IncidentObj->CustomFieldValues( '_RTIR_IP' )->ItemsArrayRef };
+}
+$ip_default ||= RT->Config->Get('_RTIR_IP_default') || '';
+</%PERL>
     <td class="value" colspan="2">
       <& /RTIR/Elements/EditRTIRField, 
         TicketObj => $TicketObj,
         QueueObj => $QueueObj, 
         Name => 'IP',
         Cols => 40, Rows => 5,
-        Default => $ARGS{'IP-Value'} || RT->Config->Get('_RTIR_IP_default') || '', &>
+        Default => $ip_default &>
     </td>
   </tr>
   <tr>