Index: openacs-4/packages/news/lib/item.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/lib/item.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/news/lib/item.tcl	26 Mar 2005 13:49:54 -0000	1.1
+++ openacs-4/packages/news/lib/item.tcl	6 Sep 2013 17:06:05 -0000	1.2
@@ -67,7 +67,7 @@
 	set publish_body [ad_text_to_html -- $publish_body]
     }
     
-    if { [ad_parameter SolicitCommentsP "news" 0]} {
+    if { [parameter::get -parameter SolicitCommentsP -default 0]} {
 
         if {[permission::permission_p -object_id $item_id -privilege general_comments_create] } {
 	    set comment_link [general_comments_create_link $item_id "[ad_conn package_url]item?item_id=$item_id"]
Index: openacs-4/packages/news/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/index.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/news/www/index.tcl	6 Sep 2013 16:46:28 -0000	1.17
+++ openacs-4/packages/news/www/index.tcl	6 Sep 2013 17:06:05 -0000	1.18
@@ -84,7 +84,7 @@
 }
 
 # TODO: pagination
-set max_dspl [ad_parameter DisplayMax "news" 10]
+set max_dspl [parameter::get -parameter DisplayMax -default 10]
 template::list::create -name news -multirow news_items -actions $actions_list -no_data [_ news.lt_There_are_no_news_ite] -elements {
     publish_date {
         label "[_ news.Release_Date]"
Index: openacs-4/packages/news/www/item-create-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/item-create-3.tcl,v
diff -u -r1.15 -r1.16
--- openacs-4/packages/news/www/item-create-3.tcl	6 Sep 2013 16:46:28 -0000	1.15
+++ openacs-4/packages/news/www/item-create-3.tcl	6 Sep 2013 17:06:05 -0000	1.16
@@ -31,7 +31,7 @@
 
 set news_admin_p [permission::permission_p -object_id $package_id -privilege news_admin]
 # get instance-wide approval policy : [closed|wait|open]
-set approval_policy [ad_parameter ApprovalPolicy "news" "wait"]
+set approval_policy [parameter::get -parameter ApprovalPolicy -default "wait"]
 
 # the news_admin or an open approval policy allow immediate publishing
 if { $news_admin_p == 1 || [string equal $approval_policy "open"] } { 
@@ -81,7 +81,7 @@
 
 if { !$news_admin_p } {
     
-    if { ![string equal "open" [ad_parameter ApprovalPolicy "news" "wait"]] } {
+    if { ![string equal "open" [parameter::get -parameter ApprovalPolicy -default "wait"]] } {
 	# case: user submitted news item, is returned to a Thank-you page
 	set title "[_ news.News_item_submitted]"
 	set context [list $title]
Index: openacs-4/packages/news/www/item-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/item-create.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/news/www/item-create.tcl	6 Sep 2013 16:46:28 -0000	1.12
+++ openacs-4/packages/news/www/item-create.tcl	6 Sep 2013 17:06:05 -0000	1.13
@@ -26,7 +26,7 @@
 
 # Furthermore, with news_admin privilege, items are approved immediately
 # or if open approval policy 
-if { [permission::permission_p -object_id $package_id -privilege news_admin] || [string equal "open" [ad_parameter ApprovalPolicy "news" "open"]] } {
+if { [permission::permission_p -object_id $package_id -privilege news_admin] || [string equal "open" [parameter::get -parameter ApprovalPolicy -default "open"]] } {
     set immediate_approve_p 1
 } else {
     set immediate_approve_p 0
Index: openacs-4/packages/news/www/item.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/item.tcl,v
diff -u -r1.19 -r1.20
--- openacs-4/packages/news/www/item.tcl	6 Sep 2013 16:46:28 -0000	1.19
+++ openacs-4/packages/news/www/item.tcl	6 Sep 2013 17:06:05 -0000	1.20
@@ -41,7 +41,7 @@
     # Footer actions
     set footer_links [list]
 
-    if { [ad_parameter SolicitCommentsP "news" 0] &&
+    if { [parameter::get -parameter SolicitCommentsP -default 0] &&
          [permission::permission_p -object_id $item_id -privilege general_comments_create] } {
 
         lappend footer_links [general_comments_create_link \
Index: openacs-4/packages/news/www/admin/approve.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/approve.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/news/www/admin/approve.tcl	29 Oct 2002 08:01:15 -0000	1.4
+++ openacs-4/packages/news/www/admin/approve.tcl	6 Sep 2013 17:06:06 -0000	1.5
@@ -29,7 +29,7 @@
 
 
 # pre-set date widgets with defaults
-set proj_archival_date [db_string week "select sysdate + [ad_parameter ActiveDays "news" 14] from dual"]
+set proj_archival_date [db_string week "select sysdate + [parameter::get -parameter ActiveDays -default 14] from dual"]
 set publish_date_select [dt_widget_datetime -default now publish_date days]
 set archive_date_select [dt_widget_datetime -default $proj_archival_date archive_date days]