[Rt-commit] r12622 - in rt/branches/3.8-TESTING: share/html/Admin/CustomFields

[sartak at bestpractical.com]

Author: sartak
Date: Thu May 22 14:40:06 2008
New Revision: 12622

Modified:
   rt/branches/3.8-TESTING/   (props changed)
   rt/branches/3.8-TESTING/share/html/Admin/CustomFields/Modify.html

Log:
 r56501 at onn:  sartak | 2008-05-22 14:39:48 -0400
 Patch from Todd Chapman for a callback to add more CF validation regex. #7622


Modified: rt/branches/3.8-TESTING/share/html/Admin/CustomFields/Modify.html
==============================================================================
--- rt/branches/3.8-TESTING/share/html/Admin/CustomFields/Modify.html	(original)
+++ rt/branches/3.8-TESTING/share/html/Admin/CustomFields/Modify.html	Thu May 22 14:40:06 2008
@@ -87,11 +87,7 @@
     Name    => 'Pattern',
     Default => $CustomFieldObj->Pattern,
     Size    => 20,
-    Values  => [
-        '(?#Mandatory).',
-        '(?#Digits)^[\d.]+$',
-        '(?#Year)^[12]\d{3}$',
-    ],
+    Values  => \@CFvalidations,
 &></td></tr>
 
 <tr><td class="label"><&|/l&>Link values to</&></td><td>
@@ -210,6 +206,14 @@
 my $EnabledChecked = "checked";
 $EnabledChecked = '' if $CustomFieldObj->Disabled;
 
+my @CFvalidations = (
+    '(?#Mandatory).',
+    '(?#Digits)^[\d.]+$',
+    '(?#Year)^[12]\d{3}$',
+);
+
+$m->callback(CallbackName => 'ValidationPatterns', Values => \@CFvalidations);
+
 </%INIT>
 <%ARGS>
 $id => undef