[Rt-commit] r9319 - rt/branches/3.7-RTIR-RELENG/lib/RT

[ruz at bestpractical.com]

Author: ruz
Date: Tue Oct 16 10:05:02 2007
New Revision: 9319

Modified:
   rt/branches/3.7-RTIR-RELENG/lib/RT/Scrips_Overlay.pm

Log:
* more debugging info about scrips

Modified: rt/branches/3.7-RTIR-RELENG/lib/RT/Scrips_Overlay.pm
==============================================================================
--- rt/branches/3.7-RTIR-RELENG/lib/RT/Scrips_Overlay.pm	(original)
+++ rt/branches/3.7-RTIR-RELENG/lib/RT/Scrips_Overlay.pm	Tue Oct 16 10:05:02 2007
@@ -186,6 +186,11 @@
 
     
     foreach my $scrip (@{$self->Prepared}) {
+        $RT::Logger->debug(
+            "Committing scrip #". $scrip->id
+            ." on txn #". $self->{'TransactionObj'}->id
+            ." of ticket #". $self->{'TicketObj'}->id
+        );
 
         $scrip->Commit( TicketObj      => $self->{'TicketObj'},
                         TransactionObj => $self->{'TransactionObj'} );
@@ -357,7 +362,10 @@
     # Promise some kind of ordering
     $self->OrderBy( FIELD => 'description' );
 
-    $RT::Logger->debug("Found ".$self->Count. " scrips");
+    $RT::Logger->debug(
+        "Found ". $self->Count ." scrips for $args{'Stage'} stage"
+        ." with applicable type(s) $args{'Type'}"
+    );
 }
 
 # }}}