Index: openacs-4/packages/dotlrn-news-aggregator/tcl/dotlrn-news-aggregator-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-news-aggregator/tcl/dotlrn-news-aggregator-procs.tcl,v diff -u -r1.3.2.2 -r1.3.2.3 --- openacs-4/packages/dotlrn-news-aggregator/tcl/dotlrn-news-aggregator-procs.tcl 22 Nov 2006 10:03:17 -0000 1.3.2.2 +++ openacs-4/packages/dotlrn-news-aggregator/tcl/dotlrn-news-aggregator-procs.tcl 14 Sep 2022 13:11:04 -0000 1.3.2.3 @@ -1,12 +1,12 @@ ad_library { - + Procs to set up the dotLRN news aggregator applet - + @author simon@collaboraid.biz } namespace eval dotlrn_news_aggregator {} - + ad_proc -public dotlrn_news_aggregator::applet_key {} { What's my applet key? } { @@ -38,7 +38,7 @@ } ad_proc -public dotlrn_news_aggregator::remove_applet {} { - One time destroy. + One time destroy. } { dotlrn_applet::remove_applet_from_dotlrn -applet_key [applet_key] } @@ -61,7 +61,7 @@ news_aggregator_admin_portlet::add_self_to_page \ -portal_id $admin_portal_id \ -package_id $package_id - + set args [ns_set create] ns_set put $args package_id $package_id add_portlet_helper $portal_id $args @@ -126,8 +126,8 @@ ad_proc -public dotlrn_news_aggregator::add_portlet { portal_id } { - A helper proc to add the underlying portlet to the given portal. - + A helper proc to add the underlying portlet to the given portal. + @param portal_id } { # simple, no type specific stuff, just set some dummy values @@ -157,11 +157,11 @@ portal_id args } { - A helper proc to remove the underlying portlet from the given portal. - + A helper proc to remove the underlying portlet from the given portal. + @param portal_id @param args A list of key-value pairs (possibly user_id, community_id, and more) -} { +} { news_aggregator_portlet::remove_self_from_page \ -portal_id $portal_id \ -package_id [ns_set get $args package_id] @@ -189,10 +189,8 @@ event old_value new_value -} { - listens for the following events: -} { +} { + listens for the following events: +} { # Hm. Nothing, it seems -} - - +} Index: openacs-4/packages/dotlrn-news-aggregator/tcl/apm-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-news-aggregator/tcl/apm-callback-procs.tcl,v diff -u -r1.1.1.1 -r1.1.1.1.8.1 --- openacs-4/packages/dotlrn-news-aggregator/tcl/apm-callback-procs.tcl 16 Jun 2003 13:34:58 -0000 1.1.1.1 +++ openacs-4/packages/dotlrn-news-aggregator/tcl/apm-callback-procs.tcl 14 Sep 2022 13:11:45 -0000 1.1.1.1.8.1 @@ -1,7 +1,7 @@ ad_library { Procedures for registering implementations for the - dotlrn nwes-aggregator package. - + dotlrn nwes-aggregator package. + @creation-date 8 May 2003 @author Simon Carstensen (simon@collaboraid.biz) @cvs-id $Id$ @@ -44,7 +44,7 @@ ChangeEventHandler dotlrn_news_aggregator::change_event_handler } } - + acs_sc::impl::new_from_spec -spec $spec }