Index: openacs-4/packages/survey/www/admin/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/one.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/survey/www/admin/one.tcl	16 Sep 2002 00:00:24 -0000	1.1
+++ openacs-4/packages/survey/www/admin/one.tcl	16 Sep 2002 10:26:34 -0000	1.2
@@ -23,12 +23,13 @@
 get_survey_info -survey_id $survey_id
 
 # get users and # who responded etc...
-set community_id [dotlrn_community::get_community_id_from_url]
-set n_eligible [db_string n_eligible { 
-    select count(*) from dotlrn_member_rels_full
-    where rel_type='dotlrn_member_rel'
-    and community_id=:community_id}]
-
+if {[apm_package_installed_p dotlrn]} {
+    set community_id [dotlrn_community::get_community_id_from_url]
+    set n_eligible [db_string n_eligible { 
+	select count(*) from dotlrn_member_rels_full
+	where rel_type='dotlrn_member_rel'
+	and community_id=:community_id}]
+}
 set return_html ""
 
 # Leaving this commented out until we evaluate scored surveys -- Luke