Index: openacs-4/packages/survey/www/admin/process-response-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/survey/www/admin/process-response-oracle.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/survey/www/admin/process-response-oracle.xql	4 Aug 2004 19:34:15 -0000	1.1.2.1
@@ -0,0 +1,64 @@
+<?xml version="1.0"?>
+
+<queryset>
+   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="create_response">      
+      <querytext>
+      
+	begin
+	    :1 := survey_response.new (
+		response_id => :response_id,
+		survey_id => :survey_id,		
+		context_id => :survey_id,
+		creation_user => :user_id,
+		initial_response_id => :initial_response_id
+	    );
+	end;
+    
+      </querytext>
+</fullquery>
+
+
+<fullquery name="survey_question_response_text_insert">
+      <querytext>
+
+      insert into survey_question_responses
+      (response_id, question_id, clob_answer)
+      values 
+      (:response_id, :question_id, empty_clob())
+      returning clob_answer into :1
+
+      </querytext>
+</fullquery>
+
+
+<fullquery name="create_item">
+      <querytext>
+
+       begin
+           :1 := content_item.new (
+           name => :name,
+           creation_ip => :creation_ip
+	   );
+       end;
+
+      </querytext>
+</fullquery>
+
+
+<fullquery name="create_rel">
+      <querytext>
+
+      begin
+ 	  :1 := acs_rel.new (
+ 	  rel_type => 'user_blob_response_rel',
+ 	  object_id_one => :user_id,
+ 	  object_id_two => :item_id);
+      end;
+
+      </querytext>
+</fullquery>
+
+
+</queryset>