Index: openacs-4/packages/news/tcl/news-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/tcl/news-procs.tcl,v
diff -u -r1.40 -r1.41
--- openacs-4/packages/news/tcl/news-procs.tcl	10 Jul 2018 13:48:19 -0000	1.40
+++ openacs-4/packages/news/tcl/news-procs.tcl	12 Jul 2018 11:09:34 -0000	1.41
@@ -17,7 +17,7 @@
 
 } {
     foreach id $id_list {
-	db_exec_plsql news_item_archive {}
+        db_exec_plsql news_item_archive {}
     }
 }
 
@@ -28,38 +28,38 @@
 
 } {
     foreach id  $id_list {
-	db_exec_plsql news_item_make_permanent {}
+        db_exec_plsql news_item_make_permanent {}
     }
 }
 
 ad_proc news_items_delete { id_list } {
 
     Deletes all news items with news_id in id_list.
 
-} { 
+} {
     foreach id $id_list {
-	db_exec_plsql news_item_delete {}
+        db_exec_plsql news_item_delete {}
     }
 }
 
 ad_proc news_util_get_url {
     package_id
-} {    
+} {
     Get package URL from package_id. If this was mounted multiple
     times, only the first occurrence will be returned.
-    
+
     This proc could be deprecated in the future.
 
     @see apm_package_url_from_id
-    
+
     @author Robert Locke
 } {
     return [apm_package_url_from_id $package_id]
 }
 
 ad_proc news__datasource {
     object_id
-} {    
+} {
     Implementation for the FtsContentProvider.datasource Service
     Contract.
 
@@ -152,7 +152,7 @@
     set now_seconds [clock scan now]
     set n_days_until_archive {}
 
-    if { $archive_date ne "" } { 
+    if { $archive_date ne "" } {
         set archive_date_seconds [clock scan $archive_date]
 
         if { $archive_date_seconds > $now_seconds } {
@@ -222,13 +222,13 @@
 ad_proc -private news__rss_datasource {
     summary_context_id
 } {
-    This procedure implements the "datasource" operation of the 
-    RssGenerationSubscriber service contract.  
+    This procedure implements the "datasource" operation of the
+    RssGenerationSubscriber service contract.
 
     @author Dave Bauer (dave@thedesignexperience.org)
 } {
     # TODO make limit a parameter
-    set limit 15 
+    set limit 15
 
     set items [list]
     set counter 0
@@ -303,7 +303,7 @@
 } {
     Get package URL from package_id. If this was mounted multiple
     times, only the first occurrence will be returned.
-    
+
     This proc could be deprecated in the future.
 
     @see apm_package_url_from_id
@@ -319,13 +319,13 @@
 } {
     set system_url [parameter::get_from_package_key -package_key acs-kernel -parameter SystemURL]
     set package_url [apm_package_url_from_id $news_package_id]
-    
+
     set node_id [ad_conn node_id]
     set instance_name [application_group::closest_ancestor_element \
                            -include_self \
                            -node_id $node_id \
                            -element "instance_name"]
-    
+
     # get the title and teaser for latest news item for the given package id
     if { [db_0or1row get_news {
         select item_id,