Index: openacs-4/packages/survey/tcl/survey-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/tcl/survey-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/survey/tcl/survey-procs-oracle.xql	15 Sep 2002 23:56:54 -0000	1.1
+++ openacs-4/packages/survey/tcl/survey-procs-oracle.xql	4 Nov 2002 02:42:46 -0000	1.2
@@ -79,5 +79,24 @@
 </querytext>
 </fullquery>
 
+<fullquery "do_notifications.get_response_info">
+<querytext>
+      select r.initial_response_id, r.responding_user_id, r.response_id,
+            u.first_names || ' ' || u.last_name as user_name,
+            edit_p,
+            o.creation_date as response_date
+            from (select survey_response.initial_user_id(response_id) as respon\
+ding_user_id,
+                  survey_response.initial_response_id(response_id) as initial_r\
+esponse_id,
+                  response_id, (case when initial_response_id is NULL then 'f' \
+else 't' end) as edit_p
+            from survey_responses) r, acs_objects o,
+            cc_users u where r.response_id=:response_id
+            and r.responding_user_id = u.user_id
+            and r.response_id = o.object_id
+	</querytext>
+    <fullquery>
+
 </queryset>