From: ivan <ivan>
Date: Wed, 8 Aug 2001 04:44:41 +0000 (+0000)
Subject: better error msg
X-Git-Tag: merged-freeside_vpopmail_support~19
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=ec7fdeaf2806d896452e82233b1bc5f1901ed3cc

better error msg
---

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 82f590f94..34d79066c 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -199,7 +199,7 @@ sub qsearch {
 
   $sth->execute( map $record->{$_},
     grep defined( $record->{$_} ) && $record->{$_} ne '', @fields
-  ) or croak $dbh->errstr;
+  ) or croak "Error executing \"$statement\": ". $dbh->errstr;
   $dbh->commit or croak $dbh->errstr if $FS::UID::AutoCommit;
 
   if ( eval 'scalar(@FS::'. $table. '::ISA);' ) {
@@ -949,7 +949,7 @@ sub DESTROY { return; }
 
 =head1 VERSION
 
-$Id: Record.pm,v 1.19 2001-07-30 10:41:44 ivan Exp $
+$Id: Record.pm,v 1.20 2001-08-08 04:44:41 ivan Exp $
 
 =head1 BUGS