Index: openacs-4/contrib/packages/portal/tcl/element-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/tcl/element-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/contrib/packages/portal/tcl/element-procs.tcl	24 Mar 2004 00:03:37 -0000	1.18
+++ openacs-4/contrib/packages/portal/tcl/element-procs.tcl	20 Jun 2004 00:39:05 -0000	1.19
@@ -34,6 +34,7 @@
         {-state full}
         {-datasource_name:required}
         {-name ""}
+        {-args ""}
     } {
         Create a new portal element of type datasource_name on the given portal.
 
@@ -43,6 +44,7 @@
         @param region The page region to placer the element on.
         @param datasource_name The portal datasource name
         @param name The name of the element
+        @param args Optional args to set in array get format
 
         @return The element_id of the new portlet
 
@@ -73,6 +75,17 @@
             }
         }
 
+        for {key value} $args {
+            portal::element::parameter::new \
+                -element_id $element_id \
+                -key $key \
+                -value $value
+        }
+
+        portal::element::initialize \
+            -datasource_name $datasource_name \
+            -element_id $element_id
+
         return $element_id
 
     }