Index: openacs-4/packages/survey/sql/oracle/survey-package-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/survey/sql/oracle/survey-package-create.sql,v diff -u -r1.1 -r1.1.2.1 --- openacs-4/packages/survey/sql/oracle/survey-package-create.sql 15 Sep 2002 23:57:20 -0000 1.1 +++ openacs-4/packages/survey/sql/oracle/survey-package-create.sql 12 Jun 2003 03:02:22 -0000 1.1.2.1 @@ -387,9 +387,11 @@ is v_user_id acs_objects.creation_user%TYPE; begin - select creation_user into v_user_id - from acs_objects - where object_id = survey_response.initial_response_id(initial_user_id.response_id); + select o.creation_user into v_user_id + from acs_objects o, + survey_responses s + where o.object_id = nvl(s.initial_response_id, s.response_id) + and s.response_id=initial_user_id.response_id; return v_user_id; end initial_user_id;