Index: openacs-4/packages/general-comments/www/test.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/test.tcl,v diff -u -r1.4 -r1.4.20.1 --- openacs-4/packages/general-comments/www/test.tcl 7 Nov 2002 08:32:49 -0000 1.4 +++ openacs-4/packages/general-comments/www/test.tcl 7 Sep 2013 08:57:02 -0000 1.4.20.1 @@ -36,14 +36,10 @@ } set package_url [general_comments_package_url] -set auto_approve_comments_p [ad_parameter -package_id $package_id \ - AutoApproveCommentsP {general-comments} {}] -set allow_file_attachments_p [ad_parameter -package_id $package_id \ - AllowFileAttachmentsP {general-comments} {}] -set allow_link_attachments_p [ad_parameter -package_id $package_id \ - AllowLinkAttachmentsP {general-comments} {}] -set max_file_size [ad_parameter -package_id $package_id \ - MaxFileSize {general-comments} {}] +set auto_approve_comments_p [parameter::get -package_id $package_id -parameter AutoApproveCommentsP -default ""] +set allow_file_attachments_p [parameter::get -package_id $package_id -parameter AllowFileAttachmentsP -default ""] +set allow_link_attachments_p [parameter::get -package_id $package_id -parameter AllowLinkAttachmentsP -default ""] +set max_file_size [parameter::get -package_id $package_id -parameter MaxFileSize -default ""] set comments [general_comments_get_comments $package_id "${package_url}test"] set full_comments [general_comments_get_comments -print_content_p 1 -print_attachments_p 1 $package_id "${package_url}test"] Index: openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl,v diff -u -r1.20.2.2 -r1.20.2.3 --- openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl 27 Aug 2013 11:25:28 -0000 1.20.2.2 +++ openacs-4/packages/rss-support/tcl/rss-generation-service-procs.tcl 7 Sep 2013 08:49:02 -0000 1.20.2.3 @@ -126,7 +126,7 @@ } } - set report_dir [acs_root_dir]/[ad_parameter -package_id [rss_package_id] RssGenOutputDirectory rss-support rss]/$impl_name/${summary_context_id} + set report_dir [acs_root_dir]/[parameter::get -package_id [rss_package_id] -parameter RssGenOutputDirectory -default rss]/$impl_name/${summary_context_id} if {$assert_p} { rss_assert_dir $report_dir