[Rt-commit] r9531 - rt/branches/3.6-EXPERIMENTAL-CATEGORIES/lib/RT

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Thu Nov  1 03:47:13 2007
New Revision: 9531

Modified:
   rt/branches/3.6-EXPERIMENTAL-CATEGORIES/lib/RT/Ticket_Overlay.pm

Log:
handle category stuff when creating tickets

Modified: rt/branches/3.6-EXPERIMENTAL-CATEGORIES/lib/RT/Ticket_Overlay.pm
==============================================================================
--- rt/branches/3.6-EXPERIMENTAL-CATEGORIES/lib/RT/Ticket_Overlay.pm	(original)
+++ rt/branches/3.6-EXPERIMENTAL-CATEGORIES/lib/RT/Ticket_Overlay.pm	Thu Nov  1 03:47:13 2007
@@ -726,13 +726,22 @@
         {
             next unless ( length($value) );
 
+            my $category;
+            if ( $value =~ /Category>>\|<<(.*?)>>\|<<(.*)/ ) {
+
+                $category = $1;
+                $value    = $2;
+            }
+
             # Allow passing in uploaded LargeContent etc by hash reference
             $self->_AddCustomFieldValue(
-                (UNIVERSAL::isa( $value => 'HASH' )
+                (
+                    UNIVERSAL::isa( $value => 'HASH' )
                     ? %$value
-                    : (Value => $value)
+                    : ( Value => $value )
                 ),
                 Field             => $cfid,
+                Category          => $category,
                 RecordTransaction => 0,
             );
         }