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 -N -r1.2.2.3 -r1.2.2.4
--- openacs-4/packages/survey/tcl/survey-procs-postgresql.xql	6 Nov 2002 14:57:53 -0000	1.2.2.3
+++ openacs-4/packages/survey/tcl/survey-procs-postgresql.xql	22 Apr 2003 00:28:48 -0000	1.2.2.4
@@ -28,6 +28,16 @@
 </querytext>
 </fullquery>
 
+<fullquery name="get_survey_info.n_completed">
+<querytext>
+    		    select count(distinct survey_response__initial_user_id(response_id))
+                    from 
+		    survey_responses
+		    where survey_id=:survey_id
+</querytext>
+</fullquery>
+
+
 <fullquery name="survey_do_notifications.get_response_info">
     <querytext>
 	select r.initial_response_id, r.responding_user_id, r.response_id,
@@ -78,4 +88,4 @@
 </querytext>
 </fullquery>
 
-</queryset>
\ No newline at end of file
+</queryset>