Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql,v
diff -u -r1.17 -r1.17.8.1
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql	3 Oct 2003 17:37:58 -0000	1.17
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql	16 Jun 2005 22:32:20 -0000	1.17.8.1
@@ -65,4 +65,23 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="callback::MergePackageUser::impl::dotlrn.get_from_rel_ids">
+        <querytext>	
+        select rel_id, rel_type, object_id_one
+	from acs_rels 
+	where object_id_two = :from_user_id
+	and object_id_one not in (select object_id_one 
+	                          from acs_rels 
+	                          where object_id_two = :to_user_id )
+        </querytext>
+    </fullquery>
+
+    <fullquery name="callback::MergeShowUserInfo::impl::dotlrn.get_from_rel_ids">
+        <querytext>	
+        select rel_id, rel_type, object_id_one
+	from acs_rels 
+	where object_id_two = :user_id
+        </querytext>
+    </fullquery>
+
 </queryset>