Index: openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/admin/site-map/Attic/parameter-set-2.tcl,v
diff -u -N
--- openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set-2.tcl	2 Feb 2018 00:05:53 -0000	1.9
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,37 +0,0 @@
-ad_page_contract {
-
-    Set parameters on a package instance.
-
-    @author Bryan Quinn (bquinn@arsdigita.com)
-    @creation-date 12 September 2000
-    @cvs-id $Id: parameter-set-2.tcl,v 1.9 2018/02/02 00:05:53 gustafn Exp $
-
-} {
-    package_key:token,notnull
-    package_id:naturalnum,notnull
-    instance_name:notnull
-    {return_url:localurl "."}
-    params:array
-}
-
-permission::require_permission -object_id $package_id -privilege admin
-
-if { [catch {
-    db_foreach apm_parameters_set {} {
-	if {[info exists params($parameter_id)]} {
-	    parameter::set_value -value $params($parameter_id) -package_id $package_id -parameter $parameter_name 
-	}
-    }
-} errmsg] } {
-    ad_return_error "Database Error" "The parameters could not be set.  The database error was:<p>
-<blockquote><pre>[ns_quotehtml $errmsg]</pre></blockquote>."
-} else {
-    ad_returnredirect $return_url
-}
-ad_script_abort
-
-# Local variables:
-#    mode: tcl
-#    tcl-indent-level: 4
-#    indent-tabs-mode: nil
-# End: