OpenACS

timoh
committed
oacs-5-2:timoh:20050601080316:2
on 01 Jun 05
file application-data-link-procs.tcl was added on branch oacs-5-2 on 2005-07-26 16:43:57 +0000
oacs-5-2:timoh:20050601080316:2
/tcl/application-data-link-procs.tcl (deleted)
1   ad_library {
2      
3       Procs of application data linking
4      
5       @author Timo Hentschel (timo@timohentschel.de)
6       @creation-date 2005-05-23
7   }
8  
9   namespace eval application_data_link {}
10  
11   ad_proc -public application_data_link::new {
12       -this_object_id:required
13       -target_object_id:required
14   } {
15       set user_id [ad_conn user_id]
16       set id_addr [ad_conn peeraddr]
17  
18       db_exec_plsql create_forward_link {}
19       db_exec_plsql create_backward_link {}
20   }
21  
22   ad_proc -public application_data_link::delete_links {
23       -object_id:required
24   } {
25       set rel_ids [db_list linked_objects {}]
26  
27       foreach rel_id $rel_ids {
28           relation_remove $rel_id
29       }
30   }
31  
32   ad_proc -public application_data_link::get {
33       -object_id:required
34   } {
35       return [db_list linked_objects {}]
36   }
37  
38   ad_proc -public application_data_link::get_linked {
39       -from_object_id:required
40       -to_object_type:required
41   } {
42       return [db_list linked_object {}]
43   }