Index: openacs-4/packages/evaluation/tcl/evaluation-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/tcl/evaluation-procs.xql,v
diff -u -r1.3.2.2 -r1.3.2.3
--- openacs-4/packages/evaluation/tcl/evaluation-procs.xql 8 Jun 2005 18:57:14 -0000 1.3.2.2
+++ openacs-4/packages/evaluation/tcl/evaluation-procs.xql 16 Jun 2005 23:59:53 -0000 1.3.2.3
@@ -222,7 +222,37 @@
where task_id=:task_id
-
-
+
+
+ select answer_id
+ from evaluation_answers
+ where party_id = :user_id
+
+
+
+
+
+ select evaluation_id, grade
+ from evaluation_student_evals
+ where party_id = :user_id
+
+
+
+
+
+ update evaluation_answers
+ set party_id = :to_user_id
+ where party_id = :from_user_id
+
+
+
+
+
+ update evaluation_student_evals
+ set party_id = :to_user_id
+ where party_id = :from_user_id
+
+
+