Index: openacs-4/packages/simple-survey/www/admin/one.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simple-survey/www/admin/one.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/simple-survey/www/admin/one.tcl	15 Mar 2002 05:26:42 -0000	1.4
+++ openacs-4/packages/simple-survey/www/admin/one.tcl	18 Mar 2002 06:22:33 -0000	1.5
@@ -16,6 +16,8 @@
 
 ad_require_permission $survey_id survsimp_admin_survey
 
+set package_id [ad_conn package_id]
+
 # Get the survey information.
 db_1row survsimp_properties "select name as survey_name, 
 short_name, description as survey_description, 
@@ -26,7 +28,8 @@
 from survsimp_surveys, acs_objects, persons
 where object_id = survey_id
 and person_id = creation_user
-and survey_id = :survey_id"
+and survey_id = :survey_id
+and package_id= :package_id"
 
 if {$survey_response_limit == "One"} {
     set response_limit_toggle "allow Multiple"