Index: openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl	1 Jun 2005 08:03:16 -0000	1.1
+++ openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl	4 Jun 2006 00:45:47 -0000	1.2
@@ -12,11 +12,11 @@
     -this_object_id:required
     -target_object_id:required
 } {
-    set user_id [ad_conn user_id]
-    set id_addr [ad_conn peeraddr]
+    set forward_rel_id [db_nextval acs_data_links_seq]
+    set backward_rel_id [db_nextval acs_data_links_seq]
 
-    db_exec_plsql create_forward_link {}
-    db_exec_plsql create_backward_link {}
+    db_dml create_forward_link {}
+    db_dml create_backward_link {}
 }
 
 ad_proc -public application_data_link::delete_links {
@@ -25,7 +25,7 @@
     set rel_ids [db_list linked_objects {}]
 
     foreach rel_id $rel_ids {
-	relation_remove $rel_id
+	db_dml delete_link {}
     }
 }
 
@@ -41,3 +41,10 @@
 } {
     return [db_list linked_object {}]
 }
+
+ad_proc -public application_data_link::get_linked_content {
+    -from_object_id:required
+    -to_content_type:required
+} {
+    return [db_list linked_object {}]
+}