Index: openacs-4/packages/new-portal/www/test-api.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/Attic/test-api.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/new-portal/www/test-api.tcl	3 Oct 2001 02:36:40 -0000	1.1
+++ openacs-4/packages/new-portal/www/test-api.tcl	3 Oct 2001 18:43:22 -0000	1.2
@@ -15,10 +15,17 @@
 set new_portal_id [portal_create_portal $user_id]
 
 # add an element
-set ds_name "NULL datasource"
-set foo [portal_add_element $new_portal_id $ds_name]
+set ds_name "null-datasource"
+set element_id [portal_add_element $new_portal_id $ds_name]
 
-#set up some params
+# get a def param
+set key "foo"
+set value [portal_get_element_param $element_id $key]
 
+ns_log Notice "AKS20: value: $value"
+# alter param
+set value "Just like honey"
 
+portal_set_element_param $element_id $key $value
+
 ns_returnredirect "index"