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 -N
--- openacs-4/packages/acs-tcl/tcl/application-data-link-procs.tcl	1 Jun 2005 08:03:16 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,43 +0,0 @@
-ad_library {
-    
-    Procs of application data linking
-    
-    @author Timo Hentschel (timo@timohentschel.de)
-    @creation-date 2005-05-23
-}
-
-namespace eval application_data_link {}
-
-ad_proc -public application_data_link::new {
-    -this_object_id:required
-    -target_object_id:required
-} {
-    set user_id [ad_conn user_id]
-    set id_addr [ad_conn peeraddr]
-
-    db_exec_plsql create_forward_link {}
-    db_exec_plsql create_backward_link {}
-}
-
-ad_proc -public application_data_link::delete_links {
-    -object_id:required
-} {
-    set rel_ids [db_list linked_objects {}]
-
-    foreach rel_id $rel_ids {
-	relation_remove $rel_id
-    }
-}
-
-ad_proc -public application_data_link::get {
-    -object_id:required
-} {
-    return [db_list linked_objects {}]
-}
-
-ad_proc -public application_data_link::get_linked {
-    -from_object_id:required
-    -to_object_type:required
-} {
-    return [db_list linked_object {}]
-}