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

[interchange-core@interchange.redhat.com]

User:      racke
Date:      2002-02-18 20:22:35 GMT
Modified:  lib/Vend Tag: LINUXIA Data.pm
Log:
backported catch for missing database entry

Revision  Changes    Path
No                   revision



No                   revision



1.13.4.9  +6 -3      interchange/lib/Vend/Data.pm


rev 1.13.4.9, prev_rev 1.13.4.8
Index: Data.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Data.pm,v
retrieving revision 1.13.4.8
retrieving revision 1.13.4.9
diff -u -r1.13.4.8 -r1.13.4.9
--- Data.pm	11 Sep 2001 11:00:08 -0000	1.13.4.8
+++ Data.pm	18 Feb 2002 20:22:35 -0000	1.13.4.9
@@ -1,6 +1,6 @@
 # Data.pm - Interchange databases
 #
-# $Id: Data.pm,v 1.13.4.8 2001/09/11 11:00:08 racke Exp $
+# $Id: Data.pm,v 1.13.4.9 2002/02/18 20:22:35 racke Exp $
 # 
 # Copyright (C) 1996-2000 Akopia, Inc. <info@akopia.com>
 #
@@ -882,8 +882,11 @@
 		no strict 'refs';
 		eval { 
 			if($MVSAFE::Safe) {
-#::logDebug("Opening under Safe: $obj->{name}: table=$table_name") if $type == 9;
-				$db = $Vend::Interpolate::Db{$class_config->{Class}}->open_table( $obj, $table_name );
+                if (exists $Vend::Interpolate::Db{$class_config->{Class}}) {
+ 				    $db = $Vend::Interpolate::Db{$class_config->{Class}}->open_table( $obj, $table_name );
+                } else {
+                    die errmsg("no access for database %s", $table_name);
+                }
 			}
 			else {
 #::logDebug("Opening $obj->{name}: table=$table_name") if $type == 9;