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.5
--- 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	27 Oct 2014 16:41:43 -0000	1.5
@@ -36,17 +36,16 @@
 }
 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"]
 set link [general_comments_create_link $package_id "${package_url}test" ]
 
+set return_url [ad_conn url]
+set params_url [export_vars -base /shared/parameters {package_id return_url}]
+
 ad_return_template