From: Mark Wells <mark@freeside.biz>
Date: Wed, 17 Apr 2013 04:12:22 +0000 (-0700)
Subject: more useful qsearch error messages
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=b595a15e182ce891241bf710cd7dbaf84570edd4;p=freeside.git

more useful qsearch error messages
---

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 42af68ca5..3d4bfae9c 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -458,7 +458,13 @@ sub qsearch {
 #    grep defined( $record->{$_} ) && $record->{$_} ne '', @fields
 #  ) or croak "Error executing \"$statement\": ". $sth->errstr;
 
-  $sth->execute or croak "Error executing \"$statement\": ". $sth->errstr;
+  my $ok = $sth->execute;
+  if (!$ok) {
+    my $error = "Error executing \"$statement\"";
+    $error .= ' (' . join(', ', map {"'$_'"} @value) . ')' if @value;
+    $error .= ': '. $sth->errstr;
+    croak $error;
+  }
 
   my $table = $stable[0];
   my $pkey = '';