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 -r1.1 -r1.2
--- openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set-2.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/admin/site-map/parameter-set-2.tcl	21 Jun 2002 19:08:33 -0000	1.2
@@ -1,8 +1,11 @@
 ad_page_contract {
+
     Set parameters on a package instance.
+
     @author Bryan Quinn (bquinn@arsdigita.com)
     @date 12 September 2000
-    @cvs-id $Id$
+    @version $Id$
+
 } {
     package_key:notnull
     package_id:naturalnum,notnull
@@ -12,14 +15,8 @@
 
 ad_require_permission $package_id admin
 
-ns_log Notice "[array names params]"
-
 if { [catch {
-    db_foreach apm_parameters_set {
-	select parameter_id, parameter_name
-	from apm_parameters
-	where package_key = :package_key
-    } {
+    db_foreach apm_parameters_set {} {
 	if {[info exists params($parameter_id)]} {
 	    ad_parameter -set $params($parameter_id) -package_id $package_id $parameter_name $package_key 
 	}
@@ -29,4 +26,4 @@
 <blockquote><pre>[ad_quotehtml $errmsg]</pre></blockquote>."
 } else {
     ad_returnredirect index
-}
\ No newline at end of file
+}