Index: openacs-4/packages/assessment/tcl/as-checks-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-checks-procs-oracle.xql,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/tcl/as-checks-procs-oracle.xql	27 Feb 2005 17:07:17 -0000	1.5
+++ openacs-4/packages/assessment/tcl/as-checks-procs-oracle.xql	28 Feb 2005 22:31:58 -0000	1.6
@@ -41,7 +41,30 @@
 	end;
       </querytext>
 </fullquery>
+<fullquery name="as::assessment::check::copy_item_checks.copy_check">
+      <querytext>
+	     declare begin
+        :1 := as_inter_item_check.new (
+		inter_item_check_id	=>     	 null,
+		name			=> 	:name,
+		action_p		=>	:action_p,
+		section_id_from 	=>	:section_id_from,
+		section_id_to		=>	:section_id_to,
+		check_sql		=>	:check_sql,
+		description		=>	:description,
+		postcheck_p		=>	:postcheck_p,
+		item_id			=>	null,
+		assessment_id		=>	:assessment_id,
+		creation_user		=>	:user_id,
+		context_id		=>	null,
+		object_type		=>	'as_inter_item_check',
+		creation_date		=>	null
+		);
+	end;
+      </querytext>
+</fullquery>
 
+
 <fullquery name="as::assessment::check::delete_assessment_checks.delete_checks">
       <querytext>
 	begin