[interchange-cvs] interchange - racke modified lib/Vend/Table/Shadow.pm

[interchange-cvs at icdevgroup.org]

User:      racke
Date:      2004-12-17 00:03:40 GMT
Modified:  lib/Vend/Table Shadow.pm
Log:
made error more verbose

Revision  Changes    Path
1.48      +3 -3      interchange/lib/Vend/Table/Shadow.pm


rev 1.48, prev_rev 1.47
Index: Shadow.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Table/Shadow.pm,v
retrieving revision 1.47
retrieving revision 1.48
diff -u -r1.47 -r1.48
--- Shadow.pm	14 Dec 2004 23:03:47 -0000	1.47
+++ Shadow.pm	17 Dec 2004 00:03:40 -0000	1.48
@@ -1,6 +1,6 @@
 # Vend::Table::Shadow - Access a virtual "Shadow" table
 #
-# $Id: Shadow.pm,v 1.47 2004/12/14 23:03:47 racke Exp $
+# $Id: Shadow.pm,v 1.48 2004/12/17 00:03:40 racke Exp $
 #
 # Copyright (C) 2002-2003 Stefan Hornburg (Racke) <racke at linuxia.de>
 #
@@ -20,7 +20,7 @@
 # MA  02111-1307  USA.
 
 package Vend::Table::Shadow;
-$VERSION = substr(q$Revision: 1.47 $, 10);
+$VERSION = substr(q$Revision: 1.48 $, 10);
 
 # CREDITS
 #
@@ -315,7 +315,7 @@
 			# pass query to other table, but preserve the query info
 			$opt->{queryinfo} = $qref;
 			unless ($db = Vend::Data::database_exists_ref($table)) {
-				die ::errmsg("Table %s not found", $table);
+				die ::errmsg(qq{Table %s not found for query "%s"}, $table, $opt->{query});
 			}
 			return $db->query($opt, $text, @arg);
 		} elsif ($qref->{command} ne 'SELECT') {