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

[email protected] Tue, 8 Jan 2008 11:38:31 -0800 (PST)
Newsgroups perl.cvs.p5ee
Message-ID <[email protected]>
Author: spadkins
Date: Tue Jan  8 11:38:31 2008
New Revision: 10496

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

Log:
added call to _maintain_queue_buffers to _init, and added logging to know when _release_in_db might fail to try to track down our negative buffer sizes

Modified: p5ee/trunk/App-WorkQueue/lib/App/WorkQueue/Repository.pm
==============================================================================
--- p5ee/trunk/App-WorkQueue/lib/App/WorkQueue/Repository.pm	(original)
+++ p5ee/trunk/App-WorkQueue/lib/App/WorkQueue/Repository.pm	Tue Jan  8 11:38:31 2008
@@ -45,6 +45,7 @@
     my ($self,$args) = @_;
     $self->_init_attribs($args);
     $self->_init_db($args);
+    $self->_maintain_queue_buffers();
     &App::sub_exit() if ($App::trace);
 }
 
@@ -352,6 +353,11 @@
         CORE::push(@values,  @$values);
     }
     my $released = $self->update($entry,\@columns,\@values);
+    if (!$released) {
+        my $context = $self->{context};
+        my $db = $self->_db();
+        $context->log({level=>2}, "WorkQueue::Repository : $self->{name} : _release_in_db RELEASE FAILED : [$entry->{shop_request_id}|$entry->{subrequest_id}] : last sql stmt[$db->{sql}]\n");
+    }
 
     &App::sub_exit($released) if ($App::trace);
     return($released);