[Bps-public-commit] r19668 - RT-Extension-SLA/lib/RT/Extension/SLA

[ruz at bestpractical.com]

Author: ruz
Date: Thu May 14 10:29:08 2009
New Revision: 19668

Modified:
   RT-Extension-SLA/lib/RT/Extension/SLA/Report.pm

Log:
* store txn in the stats

Modified: RT-Extension-SLA/lib/RT/Extension/SLA/Report.pm
==============================================================================
--- RT-Extension-SLA/lib/RT/Extension/SLA/Report.pm	(original)
+++ RT-Extension-SLA/lib/RT/Extension/SLA/Report.pm	Thu May 14 10:29:08 2009
@@ -150,12 +150,13 @@
             my $failed = $txn->CreatedObj->Unix > $deadline? 1 : 0;
             my $owner = $args{'State'}->{'owner'} == $txn->Creator? 1 : 0;
             my $stat = {
-                type      => 'KeepInLoop',
-                owner     => $args{'State'}->{'owner'},
-                failed    => $failed,
-                owner_act => $owner,
-                actor     => $txn->Creator,
-                shift     => $txn->CreatedObj->Unix - $deadline,                
+                type        => 'KeepInLoop',
+                owner       => $args{'State'}->{'owner'},
+                failed      => $failed,
+                owner_act   => $owner,
+                transaction => $txn,
+                actor       => $txn->Creator,
+                shift       => $txn->CreatedObj->Unix - $deadline,                
             };
             push @{ $self->Stats }, $stat;
         }
@@ -175,12 +176,13 @@
             my $failed = $txn->CreatedObj->Unix > $deadline? 1 : 0;
             my $owner = $args{'State'}->{'owner'} == $txn->Creator? 1 : 0;
             my $stat = {
-                type      => 'Response',
-                owner     => $args{'State'}->{'owner'},
-                failed    => $failed,
-                owner_act => $owner,
-                actor     => $txn->Creator,
-                shift     => ($txn->CreatedObj->Unix - $deadline),
+                type        => 'Response',
+                owner       => $args{'State'}->{'owner'},
+                failed      => $failed,
+                owner_act   => $owner,
+                transaction => $txn,
+                actor       => $txn->Creator,
+                shift       => ($txn->CreatedObj->Unix - $deadline),
             };
             push @{ $self->Stats }, $stat;
         }