From: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Date: Sun, 25 Oct 2009 05:28:37 +0000 (+0100)
Subject: Adding logging DBI errors if in Debug Mode
X-Git-Tag: v3.02.00-alpha~54^2~139
X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=commitdiff_plain;h=67c69a3b666f10619b1c129ce30e261fad3b0de6;p=koha_fer

Adding logging DBI errors if in Debug Mode
---

diff --git a/C4/SQLHelper.pm b/C4/SQLHelper.pm
index bf241d1706..7ee3c70951 100644
--- a/C4/SQLHelper.pm
+++ b/C4/SQLHelper.pm
@@ -120,7 +120,8 @@ sub SearchInTable{
      
     $debug && $values && warn $sql," ",join(",",@$values); 
     $sth = $dbh->prepare_cached($sql); 
-    $sth->execute(@$values); 
+    eval{$sth->execute(@$values)}; 
+	warn $@ if ($@ && $debug);
     my $results = $sth->fetchall_arrayref( {} ); 
     return $results;
 }
@@ -145,7 +146,8 @@ sub InsertInTable{
 
 	$debug && warn $query, join(",",@$values);
     my $sth = $dbh->prepare_cached($query);
-    $sth->execute( @$values);
+    eval{$sth->execute(@$values)}; 
+	warn $@ if ($@ && $debug);
 
 	return $dbh->last_insert_id(undef, undef, $tablename, undef);
 }
@@ -175,8 +177,10 @@ sub UpdateInTable{
 	$debug && warn $query, join(",",@$values,@ids);
 
     my $sth = $dbh->prepare_cached($query);
-    return $sth->execute( @$values,@ids);
-
+	my $result;
+    eval{$result=$sth->execute(@$values,@ids)}; 
+	warn $@ if ($@ && $debug);
+    return $result;
 }
 
 =head2 DeleteInTable
@@ -201,7 +205,10 @@ sub DeleteInTable{
 		};
 		$debug && warn $query, join(",",@$values);
 		my $sth = $dbh->prepare_cached($query);
-    	return $sth->execute( @$values);
+   		my $result;
+    	eval{$result=$sth->execute(@$values)}; 
+		warn $@ if ($@ && $debug);
+    	return $result;
 	}
 }