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.5 -r1.6
--- openacs-4/contrib/packages/portal/www/admin/add-applications-2.tcl	21 Mar 2004 02:39:57 -0000	1.5
+++ openacs-4/contrib/packages/portal/www/admin/add-applications-2.tcl	20 Jun 2004 00:39:06 -0000	1.6
@@ -37,38 +37,22 @@
             foreach non_admin_portal $non_admin_portals {
                 foreach user_datasource $user_datasources {
                     db_transaction {
-                        set element_id [portal::element::new \
-                                           -portal_id $non_admin_portal \
-                                           -state hidden \
-                                           -datasource_name $user_datasource]
-
-                        portal::element::parameter::new \
-                            -element_id $element_id \
-                            -key package_id \
-                            -value $application_id
-
-                        portal::element::initialize \
-                          -datasource_name $user_datasource \
-                          -element_id $element_id
+                        portal::element::new \
+                            -portal_id $non_admin_portal \
+                            -state hidden \
+                            -datasource_name $user_datasource \
+                            -args [list package_id $application_id]
                     }
                 }
             }
 
             set admin_datasources [db_list get_admin_datasources {}]
             foreach admin_datasource $admin_datasources {
                 db_transaction {
-                    set element_id [portal::element::new \
-                                       -portal_id $admin_portal_id \
-                                       -datasource_name $admin_datasource]
-
-                    portal::element::parameter::new \
-                        -element_id $element_id \
-                        -key package_id \
-                        -value $application_id
-
-                    portal::element::initialize \
-                      -datasource_name $admin_datasource \
-                      -element_id $element_id
+                    portal::element::new \
+                        -portal_id $admin_portal_id \
+                        -datasource_name $admin_datasource \
+                        -args [list package_id $application_id]
                 }
             }
         }