[svn:p5ee] r10191 - p5ee/trunk/App-WorkQueue/lib/App

Author: spadkins
Date: Wed Nov  7 14:12:21 2007
New Revision: 10191

Modified:
   p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm

Log:
dump some log info when we get the ACQUISITION FAILED error

Modified: p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm
==============================================================================
--- p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm	(original)
+++ p5ee/trunk/App-WorkQueue/lib/App/WorkQueue.pm	Wed Nov  7 14:12:21 2007
@[EMAIL PROTECTED]
 -15,6 +15,8 @[EMAIL PROTECTED]
 use App;
 use App::Service;
 @[EMAIL PROTECTED]
 = ( "App::Service" );
+use Data::Dumper;
+$Data::Dumper::Terse = 1;
 
 use strict;
 
@[EMAIL PROTECTED]
 -504,6 +506,7 @[EMAIL PROTECTED]
                         my $context = $self->{context};
                         my $db = $self->_db();
                         $context->log("ACQUISITION FAILED :
shop_request_id[$entry->{shop_request_id}] :
subrequest_id[$entry->{subrequest_id}] :
request_status[$entry->{request_status}] : last sql stmt[$db->{sql}]\n");
+                        $context->log("entry : " . Dumper($entry) .
"\nentries : " . Dumper($entries));
                         $entry = undef;
                         # the following line appears to have been a bug
                        
#$self->_maintain_queue_buffers("release",$entry);