Index: openacs-4/packages/survey/tcl/survey-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/tcl/survey-procs-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/survey/tcl/survey-procs-postgresql.xql	15 Sep 2002 23:56:54 -0000	1.1
+++ openacs-4/packages/survey/tcl/survey-procs-postgresql.xql	25 Sep 2002 00:43:40 -0000	1.2
@@ -30,4 +30,19 @@
 </querytext>
 </fullquery>
 
+<fullquery name="survey_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 responding_user_id,
+		  survey_response__initial_response_id(response_id) as initial_response_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>
\ No newline at end of file