Index: openacs-4/packages/news/tcl/news-apm-callback-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/news-apm-callback-procs.tcl,v diff -u -r1.6.2.2 -r1.6.2.3 --- openacs-4/packages/news/tcl/news-apm-callback-procs.tcl 29 Nov 2019 15:14:38 -0000 1.6.2.2 +++ openacs-4/packages/news/tcl/news-apm-callback-procs.tcl 12 Aug 2020 13:46:02 -0000 1.6.2.3 @@ -30,7 +30,7 @@ } { setup RSS support } { -set spec { + set spec { name "news" aliases { datasource news__rss_datasource @@ -47,15 +47,15 @@ setup notifications } { db_transaction { - # Create the impl and aliases for a news item - set impl_id [create_news_item_impl] + # Create the impl and aliases for a news item + set impl_id [create_news_item_impl] - # Create the notification type for a news item - set type_id [create_news_item_type $impl_id] + # Create the notification type for a news item + set type_id [create_news_item_type $impl_id] - # Enable the delivery intervals and delivery methods for a news item - enable_intervals_and_methods $type_id - } + # Enable the delivery intervals and delivery methods for a news item + enable_intervals_and_methods $type_id + } } ad_proc -public ::news::install::after_instantiate { @@ -137,19 +137,19 @@ Register the service contract implementation and return the impl_id @return impl_id of the created implementation } { - return [acs_sc::impl::new_from_spec -spec { - name news_item_notif_type - contract_name NotificationType - owner news - aliases { - GetURL news_notification_get_url - ProcessReply news_notification_process_reply - } - }] + return [acs_sc::impl::new_from_spec -spec { + name news_item_notif_type + contract_name NotificationType + owner news + aliases { + GetURL news_notification_get_url + ProcessReply news_notification_process_reply + } + }] } ad_proc -public ::news::install::create_news_item_type { - impl_id + impl_id } { Create the notification type for one news item @return the type_id of the created type @@ -161,7 +161,6 @@ -description "Notification of a new news item"] } - ad_proc -public ::news::install::enable_intervals_and_methods {type_id} { Enable the intervals and delivery methods of a specific type } {