From ec7fdeaf2806d896452e82233b1bc5f1901ed3cc Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 8 Aug 2001 04:44:41 +0000
Subject: [PATCH] better error msg

---
 FS/FS/Record.pm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
 
-- 
2.11.0