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

[email protected] Mon, 30 Jan 2012 12:08:28 -0800 (PST)
Newsgroups perl.cvs.p5ee
Message-ID <[email protected]>
Author: spadkins
Date: Mon Jan 30 12:08:27 2012
New Revision: 15108

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

Log:
fixed insert_rows({ insert_method => single })

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	Mon Jan 30 12:08:27 2012
@@ -400,7 +400,7 @@
     my $rows_ref = ref($rows);
     if ($rows_ref eq "ARRAY") {
         if ($insert_method eq "single") {
-            foreach my $row (@$rows_ref) {
+            foreach my $row (@$rows) {
                 $ok = $self->_insert_row($table, $cols, $rows, $options);
                 $nrows++ if ($ok);
             }