Index: openacs-4/contrib/packages/survey/tcl/survey-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/survey/tcl/Attic/survey-procs.tcl,v
diff -u -r1.1 -r1.1.2.1
--- openacs-4/contrib/packages/survey/tcl/survey-procs.tcl	19 Sep 2003 16:48:03 -0000	1.1
+++ openacs-4/contrib/packages/survey/tcl/survey-procs.tcl	26 Nov 2003 16:05:37 -0000	1.1.2.1
@@ -576,7 +576,7 @@
 
         #dotlrn specific info
     set dotlrn_installed_p [apm_package_installed_p dotlrn]
-    if {$dotlrn_installed_p} {
+	if {$dotlrn_installed_p && ![empty_string_p [dotlrn_community::get_community_id]]} {
 	set package_id [ad_conn package_id]
 	set community_id [dotlrn_community::get_community_id]
 	set segment_id [dotlrn_community::get_rel_segment_id -community_id $community_id -rel_type "dotlrn_member_rel"]