Index: openacs-4/contrib/packages/portal/www/admin/add-applications-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/portal/www/admin/add-applications-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/contrib/packages/portal/www/admin/add-applications-2.tcl	12 Feb 2004 21:31:21 -0000	1.2
+++ openacs-4/contrib/packages/portal/www/admin/add-applications-2.tcl	11 Mar 2004 23:37:41 -0000	1.3
@@ -15,6 +15,9 @@
 set node_id [site_node::get_node_id_from_object_id -object_id $package_id]
 set portals [db_list get_portals {}]
 
+# This needs rewriting!!!! Drive by portal datasources ... and have them mount
+# the package if needed ...
+
 db_transaction {
     foreach one_application $application {
 
@@ -35,12 +38,21 @@
 
             foreach portal $portals {
                 foreach datasource $datasources {
-                    portal::element::new \
-                        -portal_id $portal \
-                        -state hidden \
-                        -application_id $application_id \
-                        -datasource_name $datasource \
-                        -configure_params
+                    db_transaction {
+                        set element_id [portal::element::new \
+                                           -portal_id $portal \
+                                           -state hidden \
+                                           -datasource_name $datasource]
+
+                        portal::element::parameter::set_value \
+                            -element_id $element_id \
+                            -key package_id \
+                            -value $application_id
+
+                        portal::element::initialize \
+                          -datasource_name $datasource \
+                          -element_id $element_id
+                    }
                 }
             }