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 -r1.3 -r1.4
--- openacs-4/packages/new-portal/www/element-add-2.tcl	28 Sep 2001 23:46:42 -0000	1.3
+++ openacs-4/packages/new-portal/www/element-add-2.tcl	28 Sep 2001 23:51:39 -0000	1.4
@@ -10,6 +10,8 @@
 
 
 # XXX fix me themes
+# XXX check for name constraint violations
+
 # AKS: most of the references to "element" here are really
 # to DS
 
@@ -45,11 +47,11 @@
     region,
     sort_key)
     values
-    ($new_element_id,
-    :name
+    (:new_element_id,
+    :name,
     :portal_id,
     :element_id,
-    nvl((select max(theme_id) from portal_element_themes), 1))
+    nvl((select max(theme_id) from portal_element_themes), 1),
     :region,
     nvl((select max(sort_key) + 1 from portal_element_map where region = :region), 1))"
 }