Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.143 -r1.144
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	24 May 2002 01:58:46 -0000	1.143
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	29 May 2002 23:00:26 -0000	1.144
@@ -1107,9 +1107,7 @@
                 db_dml template_params_insert {}
 
         } else {
-            # no template, or the template dosen't have this DS,
-            # or I'm a template!
-
+            # no template, or the template dosen't have this D
             db_transaction {
                 set new_element_id [db_nextval acs_object_id_seq]
                 db_dml insert {}
@@ -1216,7 +1214,12 @@
         @param key
         @param value
     } {        
+        #ns_log notice "aks80 set_element_param $element_id / $key / $value / [db_list_of_lists foo {
+        # select * from portal_element_parameters where element_id = :element_id}] "
+
         db_dml update {}
+
+        # ns_log notice "aks81 [get_element_param $element_id $key]"
         return 1
     }