Index: openacs-4/packages/new-portal/www/element-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/www/Attic/element-add-2.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/new-portal/www/element-add-2.tcl	28 Sep 2001 23:40:32 -0000	1.1
@@ -0,0 +1,56 @@
+# www/element-add.tcl
+ad_page_contract {
+    Add an element to a portal.
+} {
+    portal_id:naturalnum,notnull,permission(write)
+    name:trim,notnull,nohtml
+    region:notnull
+    element_ids:naturalnum,multiple,notnull
+}
+
+
+# AKS: most of the references to "element" here are really
+# to DS
+
+set layout_id [portal_get_layout_id $portal_id]
+
+# this is required to execute the query that initializes the
+# datastructures used by portal_region_immutable_p
+portal_get_regions $template_id
+
+if { [portal_region_immutable_p $region] && ! [portal_default_p $portal_id] } {
+    ad_return_complaint 1 "You don't have permission to edit this region."
+    return
+}
+
+set master_template [ad_parameter master_template]
+
+# shouldn't it be possible to do this with one query?  Hmmm.
+foreach element_id $element_ids {
+    # can the user read this element?
+    if { ! [ad_permission_p $element_id read] } {
+	continue
+    }
+
+    set new_element_id [db_nextval acs_object_id_seq]
+
+    db_dml insert_into_map "
+    insert into portal_element_map
+    (element_id,
+    name, 
+    portal_id,
+    datasource_id, 
+    theme_id,
+    region,
+    sort_key)
+    values
+    ($new_element_id,
+    :name
+    :portal_id,
+    :element_id,
+    XXX:theme_id,
+    :region,
+    nvl((select max(sort_key) + 1 from portal_element_map where region = :region), 1))"
+}
+
+ad_returnredirect "element-layout?[export_url_vars portal_id]"