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.10 -r1.11
--- openacs-4/contrib/packages/portal/tcl/element-procs.tcl	28 Feb 2004 02:23:30 -0000	1.10
+++ openacs-4/contrib/packages/portal/tcl/element-procs.tcl	12 Mar 2004 04:54:04 -0000	1.11
@@ -33,9 +33,7 @@
         {-region ""}
         {-state full}
         {-datasource_name:required}
-        {-application_id:required}
         {-name ""}
-        {-configure_params:boolean}
     } {
         Create a new portal element of type datasource_name on the given portal.
 
@@ -44,9 +42,7 @@
         @param pretty_name The pretty name or message resource for this element.
         @param region The page region to placer the element on.
         @param datasource_name The portal datasource name
-        @param application_id The package_id of the application this portlet interfaces to.
         @param name The name of the element
-        @param configure_params If set true, call the datasource's ConfigureParams operation
 
         @return The element_id of the new portlet
 
@@ -75,19 +71,22 @@
                 db_dml insert_element {}
                 db_dml insert_element_parameters {}
             }
-
-            if { $configure_params_p } {
-                portal::datasource::call \
-                    -name $datasource_name \
-                    -op ConfigureParams \
-                    -list_args [list $element_id]
-            }
         }
 
         return $element_id
 
     }
 
+    ad_proc -public initialize {
+        {-datasource_name:required}
+        {-element_id:required}
+    } {
+        portal::datasource::call \
+            -name $datasource_name \
+            -op Initialize \
+            -list_args [list $element_id]
+    }
+
     ad_proc -public delete {
         {-element_id:required}
     } {
@@ -431,7 +430,6 @@
             shaded_p $element(shaded_p) \
             shadeable_p $element(shadeable_p) \
             hideable_p $element(hideable_p) \
-            application_id $element(application_id) \
         ]
  
         set config [concat $config [portal::element::parameter::get_all -element_id $element_id]]
@@ -525,7 +523,6 @@
                         -page_id $page_id \
                         -region $force_region \
                         -datasource_name $portlet_name \
-                        -application_id $value \
                         -name $pretty_name]
 
                 portal::element::parameter::set_value -element_id $element_id -key $key -value $value