Index: openacs-4/packages/news-aggregator/tcl/aggregator-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/tcl/aggregator-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/news-aggregator/tcl/aggregator-procs.tcl	21 Feb 2011 14:27:27 -0000	1.2
+++ openacs-4/packages/news-aggregator/tcl/aggregator-procs.tcl	7 Apr 2018 11:09:13 -0000	1.3
@@ -154,7 +154,7 @@
         set items_purges ""
     }
     
-    set limit [ad_parameter -package_id $package_id "number_of_items_shown"]
+    set limit [parameter::get -package_id $package_id -parameter "number_of_items_shown"]
     set sql_limit [expr $limit_multiple*$limit]
     
     set sql [db_map items]
@@ -247,7 +247,7 @@
         # Find out how many purges the aggregator has
         # and clear some if there are too many
         set purge_count [db_string count_purges ""]
-        set max_purges [ad_parameter "max_purges"]
+        set max_purges [parameter::get -parameter "max_purges"]
         if { $purge_count > $max_purges } {
             db_1row get_range ""
 	    db_dml purge_all_purges ""
Index: openacs-4/packages/news-aggregator/tcl/source-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/tcl/source-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/news-aggregator/tcl/source-procs.tcl	1 Jun 2004 12:18:31 -0000	1.6
+++ openacs-4/packages/news-aggregator/tcl/source-procs.tcl	7 Apr 2018 11:09:13 -0000	1.7
@@ -128,7 +128,7 @@
     
     set headers [ns_set create]
     ns_set put $headers "If-Modified-Since" $modified
-    ns_set put $headers "Referer" [ad_parameter "referer"]
+    ns_set put $headers "Referer" [parameter::get -parameter "referer"]
 
     if { [catch { array set f [ad_httpget \
                                     -url $feed_url \
@@ -209,7 +209,7 @@
                         -description $item(description) \
                         -guid $item(guid)]
         
-        if { [lsearch -exact $existing_guids $guid] == -1 } {
+        if {$guid ni $existing_guids} {
             set new_p 1
 	    ns_log Debug "source::update: guid $guid marked as new"
         } else {
Index: openacs-4/packages/news-aggregator/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/www/index.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/news-aggregator/www/index.tcl	20 Aug 2004 09:31:27 -0000	1.9
+++ openacs-4/packages/news-aggregator/www/index.tcl	7 Apr 2018 11:09:13 -0000	1.10
@@ -84,7 +84,7 @@
 
 set create_url "${package_url}/aggregator"
 
-set limit [ad_parameter "number_of_items_shown"]
+set limit [parameter::get -parameter "number_of_items_shown"]
 set sql_limit [expr 7*$limit]
 
 set top 0
Index: openacs-4/packages/news-aggregator/www/subscriptions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/www/subscriptions.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/news-aggregator/www/subscriptions.tcl	20 Aug 2004 09:31:27 -0000	1.7
+++ openacs-4/packages/news-aggregator/www/subscriptions.tcl	7 Apr 2018 11:09:13 -0000	1.8
@@ -8,7 +8,7 @@
     new_source_id:integer,optional
     {source_id:integer,multiple ""}
     {feed_url ""}
-    {orderby ""}
+    {orderby:token ""}
 }
 
 permission::require_permission \