From: ivan <ivan>
Date: Tue, 6 Jul 2004 19:10:13 +0000 (+0000)
Subject: better error message for missing tables
X-Git-Tag: freeside_1_5_0beforepre6^2~97
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=4d80033767fa916faa15709e69bafaf9a939a5a1;p=freeside.git

better error message for missing tables
---

diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm
index 881b8ddb5..c3d783232 100644
--- a/FS/FS/Record.pm
+++ b/FS/FS/Record.pm
@@ -204,7 +204,10 @@ sub qsearch {
   my $dbh = dbh;
 
   my $table = $cache ? $cache->table : $stable;
-  my $pkey = $dbdef->table($table)->primary_key;
+  my $dbdef_table = $dbdef->table($table)
+    or die "No schema for table $table found - ".
+           "do you need to create it or run dbdef-create?";
+  my $pkey = $dbdef_table->primary_key;
 
   my @real_fields = grep exists($record->{$_}), real_fields($table);
   my @virtual_fields = grep exists($record->{$_}), "FS::$table"->virtual_fields;