Index: openacs-4/packages/file-storage/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/index.tcl,v
diff -u -r1.30.6.2 -r1.30.6.3
--- openacs-4/packages/file-storage/www/index.tcl	6 Sep 2013 16:24:55 -0000	1.30.6.2
+++ openacs-4/packages/file-storage/www/index.tcl	6 Sep 2013 17:37:19 -0000	1.30.6.3
@@ -59,7 +59,7 @@
 
 set package_id [ad_conn package_id]
 
-set show_administer_permissions_link_p [ad_parameter -package_id $package_id "ShowAdministerPermissionsLinkP"]
+set show_administer_permissions_link_p [parameter::get -package_id $package_id -parameter "ShowAdministerPermissionsLinkP" -default ]
 set n_contents [fs::get_folder_contents_count -folder_id $folder_id -user_id $user_id]
 
 form create n_past_days_form
Index: openacs-4/packages/general-comments/www/comment-add-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/comment-add-3.tcl,v
diff -u -r1.9.8.1 -r1.9.8.2
--- openacs-4/packages/general-comments/www/comment-add-3.tcl	6 Sep 2013 16:01:49 -0000	1.9.8.1
+++ openacs-4/packages/general-comments/www/comment-add-3.tcl	6 Sep 2013 17:37:19 -0000	1.9.8.2
@@ -33,7 +33,7 @@
 
 # insert the comment into the database
 set creation_ip [ad_conn peeraddr]
-set is_live [ad_parameter AutoApproveCommentsP {general-comments} {t}]
+set is_live [parameter::get -parameter AutoApproveCommentsP -default {t}]
 
 general_comment_new \
     -object_id $object_id \
Index: openacs-4/packages/general-comments/www/comment-edit-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/comment-edit-3.tcl,v
diff -u -r1.4.14.1 -r1.4.14.2
--- openacs-4/packages/general-comments/www/comment-edit-3.tcl	6 Sep 2013 16:01:49 -0000	1.4.14.1
+++ openacs-4/packages/general-comments/www/comment-edit-3.tcl	6 Sep 2013 17:37:19 -0000	1.4.14.2
@@ -22,7 +22,7 @@
 set user_id [ad_conn user_id]
 
 # insert the revision into the database
-set is_live [ad_parameter AutoApproveCommentsP {general-comments} {t}]
+set is_live [parameter::get -parameter AutoApproveCommentsP -default {t}]
 set creation_ip [ad_conn peeraddr]
 db_transaction {
   db_exec_plsql insert_comment {
Index: openacs-4/packages/general-comments/www/file-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/file-add-2.tcl,v
diff -u -r1.6.14.1 -r1.6.14.2
--- openacs-4/packages/general-comments/www/file-add-2.tcl	6 Sep 2013 16:01:50 -0000	1.6.14.1
+++ openacs-4/packages/general-comments/www/file-add-2.tcl	6 Sep 2013 17:37:19 -0000	1.6.14.2
@@ -21,14 +21,14 @@
     { return_url {} }
 } -validate {
     allow_file_attachments {
-        set allow_files_p [ad_parameter AllowFileAttachmentsP {general-comments} {t}]
+        set allow_files_p [parameter::get -parameter AllowFileAttachmentsP -default {t}]
         if { $allow_files_p != "t" } {
             ad_complain "[_ general-comments.lt_Attaching_files_to_co]"            
         }
     }
     check_file_size {
         set tmp_size [file size ${upload_file.tmpfile}]
-        set max_file_size [ad_parameter MaxFileSize {general-comments} {0}]
+        set max_file_size [parameter::get -parameter MaxFileSize -default {0}]
         if { $tmp_size > $max_file_size && $max_file_size > 0 } {
             ad_complain "[_ general-comments.lt_Your_file_is_too_larg]  [_ general-comments.The_publisher_of] [ad_system_name] [_ general-comments.lt_has_chosen_to_limit_a] [util_commify_number $max_file_size] [_ general-comments.bytes].\n"
         }
Index: openacs-4/packages/general-comments/www/file-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/file-add.tcl,v
diff -u -r1.4.20.1 -r1.4.20.2
--- openacs-4/packages/general-comments/www/file-add.tcl	6 Sep 2013 16:01:50 -0000	1.4.20.1
+++ openacs-4/packages/general-comments/www/file-add.tcl	6 Sep 2013 17:37:19 -0000	1.4.20.2
@@ -21,7 +21,7 @@
     file_name:onevalue
 } -validate {
     allow_file_attachments {
-        set allow_files_p [ad_parameter AllowFileAttachmentsP {general-comments} {t}]
+        set allow_files_p [parameter::get -parameter AllowFileAttachmentsP -default {t}]
         if { $allow_files_p != "t" } {
             ad_complain "Attaching files to comments has been disabled."
         }
Index: openacs-4/packages/general-comments/www/url-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/url-add-2.tcl,v
diff -u -r1.4.14.1 -r1.4.14.2
--- openacs-4/packages/general-comments/www/url-add-2.tcl	6 Sep 2013 16:01:50 -0000	1.4.14.1
+++ openacs-4/packages/general-comments/www/url-add-2.tcl	6 Sep 2013 17:37:19 -0000	1.4.14.2
@@ -15,7 +15,7 @@
     { return_url {} }
 } -validate {
     allow_link_attachments {
-        set allow_links_p [ad_parameter AllowLinkAttachmentsP {general-comments} {t}]
+        set allow_links_p [parameter::get -parameter AllowLinkAttachmentsP -default {t}]
         if { $allow_links_p != "t" } {
             ad_complain "[_ general-comments.lt_Attaching_links_to_co]"
         }
Index: openacs-4/packages/general-comments/www/url-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/url-add.tcl,v
diff -u -r1.4.20.1 -r1.4.20.2
--- openacs-4/packages/general-comments/www/url-add.tcl	6 Sep 2013 16:01:50 -0000	1.4.20.1
+++ openacs-4/packages/general-comments/www/url-add.tcl	6 Sep 2013 17:37:19 -0000	1.4.20.2
@@ -23,7 +23,7 @@
     return_url:onevalue
 } -validate {
     allow_link_attachments {
-        set allow_links_p [ad_parameter AllowLinkAttachmentsP {general-comments} {t}]
+        set allow_links_p [parameter::get -parameter AllowLinkAttachmentsP -default {t}]
         if { $allow_links_p != "t" } {
             ad_complain "[_ general-comments.lt_Attaching_links_to_co]"
         }
Index: openacs-4/packages/general-comments/www/view-comment.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/view-comment.tcl,v
diff -u -r1.9.2.2 -r1.9.2.3
--- openacs-4/packages/general-comments/www/view-comment.tcl	6 Sep 2013 16:01:50 -0000	1.9.2.2
+++ openacs-4/packages/general-comments/www/view-comment.tcl	6 Sep 2013 17:37:20 -0000	1.9.2.3
@@ -93,8 +93,8 @@
     set view_comment_url [export_vars -base "view-comment" {comment_id revision_id return_url}]
 }
 
-set allow_file_p [ad_parameter AllowFileAttachmentsP {general-comments} {t}]
-set allow_link_p [ad_parameter AllowLinkAttachmentsP {general-comments} {t}]
+set allow_file_p [parameter::get -parameter AllowFileAttachmentsP -default {t}]
+set allow_link_p [parameter::get -parameter AllowLinkAttachmentsP -default {t}]
 set allow_attach_p "t"
 if { $allow_file_p == "f" && $allow_link_p == "f" } {
     set allow_attach_p "f"