Index: openacs-4/packages/acs-admin/www/apm/parameter-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/parameter-add-2.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/acs-admin/www/apm/parameter-add-2.tcl	12 Feb 2019 17:28:59 -0000	1.16
+++ openacs-4/packages/acs-admin/www/apm/parameter-add-2.tcl	3 Sep 2024 15:37:29 -0000	1.17
@@ -16,9 +16,11 @@
     {default_value ""}
     {min_n_values:integer 1}
     {max_n_values:integer 1}
+    {return_url:localurl ""}
+    {update_info_file:boolean true}
 } -validate {
     datatype_type_ck {
-        if {$datatype ne "number" && $datatype ne "string" && $datatype ne "text"} {
+        if {$datatype ni {number string text}} {
             ad_complain
         }
     }
@@ -36,10 +38,13 @@
     datatype_type_ck {The datatype must be either a number or a string or text.}
 }
 
+
 db_transaction {
     apm_parameter_register -parameter_id $parameter_id -scope $scope $parameter_name $description $package_key \
         $default_value $datatype $section_name $min_n_values $max_n_values
-    apm_package_install_spec $version_id
+    if {$update_info_file} {
+        apm_package_install_spec $version_id
+    }
 } on_error {
     if {![db_string apm_parameter_register_doubleclick_p {
         select 1 from apm_parameters where parameter_id = :parameter_id
@@ -50,7 +55,10 @@
     }
 }
 
-ad_returnredirect [export_vars -base "version-parameters" { version_id section_name }]
+if {$return_url eq ""} {
+    set return_url [export_vars -base "version-parameters" { version_id section_name }]
+}
+ad_returnredirect $return_url
 ad_script_abort
 
 # Local variables: