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.1 -r1.2
--- openacs-4/packages/new-portal/www/element-add-2.tcl	28 Sep 2001 23:40:32 -0000	1.1
+++ openacs-4/packages/new-portal/www/element-add-2.tcl	28 Sep 2001 23:42:41 -0000	1.2
@@ -9,6 +9,7 @@
 }
 
 
+# XXX fix me themes
 # AKS: most of the references to "element" here are really
 # to DS
 
@@ -48,7 +49,7 @@
     :name
     :portal_id,
     :element_id,
-    XXX:theme_id,
+    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))"
 }