diff options
| author | ivan <ivan> | 2001-08-08 04:44:41 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-08-08 04:44:41 +0000 |
| commit | ec7fdeaf2806d896452e82233b1bc5f1901ed3cc (patch) | |
| tree | 622b294f5977eb3e6538460c55aacea6c845ddaa | |
| parent | 1dc0755721b4f5989f798df4d37842c70662cf9f (diff) | |
better error msg
| -rw-r--r-- | FS/FS/Record.pm | 4 |
1 files 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 |