Index: openacs-4/packages/dotlrn-news/tcl/dotlrn-news-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-news/tcl/dotlrn-news-procs.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/dotlrn-news/tcl/dotlrn-news-procs.tcl 26 Nov 2001 22:41:51 -0000 1.3 +++ openacs-4/packages/dotlrn-news/tcl/dotlrn-news-procs.tcl 30 Nov 2001 18:21:30 -0000 1.4 @@ -40,8 +40,16 @@ ad_proc -public add_applet { community_id } { - Add the news applet + One time init } { + return + } + + ad_proc -public add_applet_to_community { + community_id + } { + Add the news applet to a specifc dotlrn community + } { # Callback to get node_id from community # REVISIT this (ben) set node_id [site_node_id [ad_conn url]] @@ -78,9 +86,18 @@ community_id user_id } { - Add a user to a community + one time user-specifuc init } { + return + } + ad_proc -public add_user_to_community { + community_id + user_id + } { + Add a user to a specifc dotlrn community + } { + # ad_return_complaint 1 "$community_id $user_id" # Get the page_id by callback set page_id [dotlrn_community::get_page_id $community_id $user_id]