Index: openacs-4/packages/acs-tcl/tcl/application-data-link-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/application-data-link-procs.xql,v
diff -u -N -r1.6 -r1.6.2.1
--- openacs-4/packages/acs-tcl/tcl/application-data-link-procs.xql	4 Jan 2010 19:54:37 -0000	1.6
+++ openacs-4/packages/acs-tcl/tcl/application-data-link-procs.xql	22 Mar 2011 16:13:47 -0000	1.6.2.1
@@ -99,6 +99,37 @@
     </querytext>
 </partialquery>
 
+<fullquery name="application_data_link::get_links_to.links_to">
+    <querytext>
+        select object_id_one
+        from acs_data_links,
+        acs_objects
+	$content_type_from_clause
+        where object_id_two = :object_id
+	and object_id = object_id_one
+    [application_data_link::relation_tag_where_clause -relation_tag $relation_tag]
+	$from_type_where_clause
+    </querytext>
+</fullquery>
+
+<partialquery name="application_data_link::get_links_to.from_type_clause">
+    <querytext>
+	and object_type = :from_type
+    </querytext>
+</partialquery>
+
+<partialquery name="application_data_link::get_links_to.content_type_from_clause">
+    <querytext>
+	, cr_items
+    </querytext>
+</partialquery>
+
+<partialquery name="application_data_link::get_links_to.content_type_where_clause">
+    <querytext>
+	and content_type = :object_type
+    </querytext>
+</partialquery>
+
 <fullquery name="application_data_link::delete_from_list.delete_links">
     <querytext>
   	delete from acs_data_links where object_id_one=:object_id