[Rt-commit] r2867 - in rt/branches/QUEBEC-EXPERIMENTAL: . lib/RT/Action

[jesse at bestpractical.com]

Author: jesse
Date: Wed May 11 20:08:43 2005
New Revision: 2867

Modified:
   rt/branches/QUEBEC-EXPERIMENTAL/   (props changed)
   rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/Action/CreateTickets.pm
Log:
 r16465 at hualien:  jesse | 2005-05-11 15:31:39 +0100
  r16392 at hualien:  jesse | 2005-05-10 02:10:18 -0400
   r16391 at hualien (orig r2861):  robert | 2005-05-10 01:54:35 -0400
    r2875 at bear:  rspier | 2005-05-10T05:54:13.875334Z
    quick and dirty fix (ok, not so quick, and not really so dirty)
    for the recursive CreateTickets dataloss issue.
    
   
  
 


Modified: rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/Action/CreateTickets.pm
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/Action/CreateTickets.pm	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/lib/RT/Action/CreateTickets.pm	Wed May 11 20:08:43 2005
@@ -565,12 +565,14 @@
     # XXX: cargo cult programming that works. i'll be back.
     use bytes;
 
-    %T::Tickets = ();
+    local %T::Tickets = %T::Tickets;
+    local $T::TOP = $T::TOP;
+    local $T::ID = $T::ID;
+    $T::Tickets{'TOP'} = $T::TOP = $top if $top;
 
     my $ticketargs;
     my ( @links, @postponed );
     foreach my $template_id ( @{ $self->{'create_tickets'} } ) {
-        $T::Tickets{'TOP'} = $T::TOP = $top if $top;
         $RT::Logger->debug("Workflow: processing $template_id of $T::TOP")
           if $T::TOP;
 
@@ -628,7 +630,8 @@
     use bytes;
 
     my @results;
-    %T::Tickets = ();
+    local %T::Tickets = %T::Tickets;
+    local $T::ID = $T::ID;
 
     my $ticketargs;
     my ( @links, @postponed );