[Rt-commit] r2825 - rt/branches/CHALDEA-EXPERIMENTAL/html/Admin/CustomFields

[autrijus at bestpractical.com]

Author: autrijus
Date: Tue May  3 07:30:45 2005
New Revision: 2825

Modified:
   rt/branches/CHALDEA-EXPERIMENTAL/html/Admin/CustomFields/Modify.html
Log:
* simple UI to set patterns -- more later

Modified: rt/branches/CHALDEA-EXPERIMENTAL/html/Admin/CustomFields/Modify.html
==============================================================================
--- rt/branches/CHALDEA-EXPERIMENTAL/html/Admin/CustomFields/Modify.html	(original)
+++ rt/branches/CHALDEA-EXPERIMENTAL/html/Admin/CustomFields/Modify.html	Tue May  3 07:30:45 2005
@@ -77,6 +77,10 @@
 </td>
 </tr>
 <tr>
+<td class="label"><&|/l&>Pattern</&></td>
+<td><input name="Pattern" VALUE="<%$CustomFieldObj->Pattern%>" SIZE=20></td></tr>
+</tr>
+<tr>
 <td class="label">&nbsp;</td>
 <td>
 <INPUT TYPE=HIDDEN NAME="SetEnabled" VALUE="1">
@@ -124,7 +128,7 @@
         $CustomFieldObj->Load($id) || $m->comp("/Elements/Error", Why =>  loc('No CustomField') );
         $title = loc( 'Editing CustomField [_1]', $CustomFieldObj->Name() );
 
-        my @attribs = qw( Name TypeComposite LookupType Description);
+        my @attribs = qw( Pattern Name TypeComposite LookupType Description);
         my @aresults = UpdateRecordObject( AttributesRef => \@attribs,
                                            Object        => $CustomFieldObj,
                                            ARGSRef       => \%ARGS );