Index: openacs-4/packages/evaluation/tcl/evaluation-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/tcl/evaluation-procs-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/evaluation/tcl/evaluation-procs-oracle.xql 4 Apr 2005 18:22:36 -0000 1.2
+++ openacs-4/packages/evaluation/tcl/evaluation-procs-oracle.xql 7 Apr 2005 11:26:58 -0000 1.3
@@ -16,24 +16,24 @@
begin
- select evaluation__new_evaluation_task_group (
- :group_id,
- :group_name,
- 'closed',
- :creation_date,
- :creation_user,
- :creation_ip,
- :context,
- :task_item_id
- );
+ :1 := evaluation.new_evaluation_task_group (
+ p_task_group_id => :group_id,
+ p_task_group_name => :group_name,
+ p_join_policy => 'closed',
+ p_creation_date => :creation_date,
+ p_creation_user => :creation_user,
+ p_creation_ip => :creation_ip,
+ p_context_id => :context,
+ p_task_item_id => :task_item_id
+ );
end;
begin
- select acs_group.name(:group_id) as group_name;
+ :1 := acs_group.name(:group_id);
end;
@@ -186,13 +186,12 @@
-
- update cr_revisions
- set content = :content,
- content_length = :content_length,
- filename = :filename
- where revision_id = :revision_id
-
+ begin
+ evaluation.clone_task (
+ p_from_revision_id => :from_task_id,
+ p_to_revision_id => :revision_id
+ );
+ end;