Index: openacs-4/packages/survey/tcl/survey-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/tcl/survey-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/survey/tcl/survey-procs.tcl	10 Nov 2003 22:57:06 -0000	1.4
+++ openacs-4/packages/survey/tcl/survey-procs.tcl	22 Dec 2003 21:16:02 -0000	1.5
@@ -404,7 +404,13 @@
     set community_url [ad_conn package_url]
 
     #dotlrn specific info
-    set dotlrn_installed_p [expr [apm_package_installed_p dotlrn] && ![empty_string_p [dotlrn_community::get_community_id]]]
+    set dotlrn_installed_p [expr [apm_package_installed_p dotlrn] && [apm_package_enabled_p dotlrn]]
+    if { $dotlrn_installed_p } {
+        # Cannot do this unless dotlrn package is installed and enabled
+        if { [empty_string_p [dotlrn_community::get_community_id]] } {
+            set dotlrn_installed_p 0
+        }
+    }
 
     if {$dotlrn_installed_p} { 
 	set package_id [ad_conn package_id]