From 67c69a3b666f10619b1c129ce30e261fad3b0de6 Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
Date: Sun, 25 Oct 2009 06:28:37 +0100
Subject: [PATCH] Adding logging DBI errors if in Debug Mode

---
 C4/SQLHelper.pm | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

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;
 	}
 }
 
-- 
2.39.2