Author: spadkins
Date: Thu Feb 10 11:38:54 2011
New Revision: 14701

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

Log:
set dbh attributes to PrintWarn => 0 (needed to silence unique index violations 
in execute_array() with an insert statement in Oracle)

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 Thu Feb 10 11:38:54 2011
@@ -255,6 +255,7 @@
     &App::sub_entry if ($App::trace);
     my $attr = {
         PrintError         => 0,
+        PrintWarn          => 0,
         AutoCommit         => 1,
         RaiseError         => 1,
         FetchHashKeyName   => 'NAME_lc',

Modified: p5ee/trunk/App-Repository/lib/App/Repository/Oracle.pm
==============================================================================
--- p5ee/trunk/App-Repository/lib/App/Repository/Oracle.pm      (original)
+++ p5ee/trunk/App-Repository/lib/App/Repository/Oracle.pm      Thu Feb 10 
11:38:54 2011
@@ -107,6 +107,7 @@
     my $long_read_len = $self->{long_read_len} || 4000;
     my $attr = {
         PrintError         => 0,
+        PrintWarn          => 0,
         AutoCommit         => 1,
         RaiseError         => 1,
         FetchHashKeyName   => 'NAME_lc',

Reply via email to