[Rt-commit] [svn] r1270 - in rt: . branches/3.2-RELEASE/lib/RT

[autrijus at pallas.eruditorum.org]

Author: autrijus
Date: Wed Jul 21 20:39:33 2004
New Revision: 1270

Modified:
   rt/   (props changed)
   rt/branches/3.2-RELEASE/lib/RT/Ticket_Overlay.pm
Log:
 ----------------------------------------------------------------------
 r6200 at not:  autrijus | 2004-07-22T00:37:31.494556Z
 
 * $Ticket->AddCustomFieldValue now takes FIELD as Name.
 ----------------------------------------------------------------------


Modified: rt/branches/3.2-RELEASE/lib/RT/Ticket_Overlay.pm
==============================================================================
--- rt/branches/3.2-RELEASE/lib/RT/Ticket_Overlay.pm	(original)
+++ rt/branches/3.2-RELEASE/lib/RT/Ticket_Overlay.pm	Wed Jul 21 20:39:33 2004
@@ -3356,7 +3356,7 @@
 =item AddCustomFieldValue { Field => FIELD, Value => VALUE }
 
 VALUE should be a string.
-FIELD can be a CustomField object OR a CustomField ID.
+FIELD can be a CustomField object, a CustomField ID, or a CustomField Name.
 
 
 Adds VALUE as a value of CustomField FIELD.  If this is a single-value custom field,
@@ -3387,6 +3387,9 @@
     if ( UNIVERSAL::isa( $args{'Field'}, "RT::CustomField" ) ) {
         $cf->Load( $args{'Field'}->id );
     }
+    elsif ($args{'Field'} =~ /\D/) {
+        $cf->LoadByCols( Name => $args{'Field'}, Queue => $self->QueueObj->Id );
+    }
     else {
         $cf->Load( $args{'Field'} );
     }