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

Author: spadkins
Date: Tue Oct  3 10:33:09 2006
New Revision: 7869

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

Log:
change 0E0 to 0 on delete() return value

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	Tue Oct  3 10:33:09 2006
@@ -2241,6 +2241,7 @@
         $self->explain_sql($sql);
     }
     my $retval = $self->{dbh}->do($sql);
+    $retval = 0 if ($retval == 0); # turn "0E0" into plain old "0"
     if ($debug_sql) {
         $elapsed_time = $self->_read_timer($timer);
         print "DEBUG_SQL: retval [$retval] ($elapsed_time sec) $DBI::errstr\n";
@@ -2275,7 +2276,7 @@
         $self->explain_sql($sql);
     }
     my $retval = $self->{dbh}->do($sql);
-    $retval = 0 if ($retval == 0);
+    $retval = 0 if ($retval == 0); # turn "0E0" into plain old "0"
     if ($debug_sql) {
         $elapsed_time = $self->_read_timer($timer);
         print "DEBUG_SQL: retval [$retval] ($elapsed_time sec) $DBI::errstr\n";
@@ -2308,6 +2309,7 @@
         $self->explain_sql($sql);
     }
     $retval = $dbh->do($sql) if (defined $dbh);
+    $retval = 0 if ($retval == 0); # turn "0E0" into plain old "0"
     if ($debug_sql) {
         $elapsed_time = $self->_read_timer($timer);
         print "DEBUG_SQL: retval [$retval] ($elapsed_time sec) $DBI::errstr\n";
@@ -2340,6 +2342,7 @@
         $self->explain_sql($sql);
     }
     $retval = $dbh->do($sql) if (defined $dbh);
+    $retval = 0 if ($retval == 0); # turn "0E0" into plain old "0"
     if ($debug_sql) {
         $elapsed_time = $self->_read_timer($timer);
         print "DEBUG_SQL: retval [$retval] ($elapsed_time sec) $DBI::errstr\n";
@@ -2374,8 +2377,8 @@
             $retval = $dbh->selectall_arrayref($sql);
         }
         else {
-            # add 0 to turn "0E0" into plain old "0"
-            $retval = $dbh->do($sql) + 0;
+            $retval = $dbh->do($sql);
+            $retval = 0 if ($retval == 0); # turn "0E0" into plain old "0"
         }
         $self->{sql} = $sql;
     }