Index: openacs-4/packages/evaluation/tcl/evaluation-callback-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/evaluation/tcl/evaluation-callback-procs.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/evaluation/tcl/evaluation-callback-procs.xql	8 Aug 2006 21:26:41 -0000	1.2
@@ -0,0 +1,37 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+  <fullquery name="callback::MergeShowUserInfo::impl::evaluation.sel_answers">
+    <querytext>	
+      select answer_id
+      from evaluation_answers
+      where party_id = :user_id
+    </querytext>
+  </fullquery>
+  
+  <fullquery name="callback::MergeShowUserInfo::impl::evaluation.sel_evals">
+    <querytext>	
+      select evaluation_id, grade 
+      from evaluation_student_evals
+      where party_id = :user_id
+    </querytext>
+  </fullquery>
+	
+  <fullquery name="callback::MergePackageUser::impl::evaluation.upd_from_answers">
+    <querytext>	
+      update evaluation_answers
+      set party_id = :to_user_id
+      where party_id = :from_user_id
+    </querytext>
+  </fullquery>
+  
+  <fullquery name="callback::MergePackageUser::impl::evaluation.upd_from_stud_evals">
+    <querytext>	
+      update evaluation_student_evals
+      set party_id = :to_user_id
+      where party_id = :from_user_id
+    </querytext>
+  </fullquery>
+  
+</queryset>