[svn:p5ee] r13960 - p5ee/trunk/App-Repository/lib/App/Repository

[email protected] Fri, 7 May 2010 06:27:08 -0700 (PDT)
Newsgroups perl.cvs.p5ee
Message-ID <[email protected]>
Author: spadkins
Date: Fri May  7 06:27:07 2010
New Revision: 13960

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

Log:
fixed: insert needs to throw an error

Modified: p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm	(original)
+++ p5ee/trunk/App-Repository/lib/App/Repository/DBI.pm	Fri May  7 06:27:07 2010
@@ -2154,6 +2154,12 @@
                     die $e;
                 }
             }
+            else {
+                $loglevel = 3;
+                $bind_values = join("|", map { defined $_ ? $_ : "undef" } @$row);
+                $self->{context}->log({level=>$loglevel}, "DBI Exception (fail) in _insert_row(): ${e}BIND VALUES: [$bind_values]\nSQL: $sql");
+                die $e;
+            }
         }
     }
     $nrows = 1 if ($nrows);