Index: openacs-4/packages/edit-this-page/www/etp-setup.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/www/etp-setup.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/edit-this-page/www/etp-setup.tcl	4 Sep 2002 13:01:46 -0000	1.2
+++ openacs-4/packages/edit-this-page/www/etp-setup.tcl	4 Apr 2003 15:59:38 -0000	1.3
@@ -23,8 +23,8 @@
 set package_id [ad_conn package_id]
 
 if { $confirmed == "f" } {
-    set app [ad_parameter application "default"]
-    set subtopic_app [ad_parameter subtopic_application "default"]
+    set app [parameter::get -package_id $package_id -parameter application -default "default"]
+    set subtopic_app [parameter::get -package_id $package_id -parameter subtopic_application -default "default"]
 
     set app_options ""
     set subtopic_app_options ""
@@ -51,8 +51,9 @@
     ad_return_template
 
 } else {
-    db_dml set_app_param ""
-    db_dml set_subtopic_app_param ""
+    parameter::set_value -package_id $package_id -parameter application -value $app
+    parameter::set_value -package_id $package_id -parameter subtopic_application -value $subtopic_app
+
     apm_parameter_sync edit-this-page $package_id
     ad_returnredirect "etp"
     ad_script_abort