Index: openacs-4/packages/static-portlet/www/element-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/www/Attic/element-new.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/static-portlet/www/element-new.tcl	18 Feb 2002 05:23:12 -0000	1.1
+++ openacs-4/packages/static-portlet/www/element-new.tcl	18 Feb 2002 20:23:00 -0000	1.2
@@ -6,12 +6,13 @@
     @version $Id$
 } -query {
     {referer "../one-community-admin"}
-    {instance_id ""}
+    portal_id:integer,notnull
 } -properties {
     title:onevalue
 }
 
 set title "New static element"
+set instance_id [ad_conn package_id]
 
 form create new_static_element
 
@@ -27,24 +28,28 @@
     -widget textarea \
     -html {rows 5 cols 60 wrap soft}
 
-element create new_static_element instance_id \
-    -label "instance_id" \
+element create new_static_element portal_id \
+    -label "portal_id" \
     -datatype integer \
     -widget hidden \
-    -value $instance_id
+    -value $portal_id
 
 if {[form is_valid new_static_element]} {
     form get_values new_static_element \
-        pretty_name content instance_id
+        pretty_name content portal_id
 
     # insert the new content item
     # ad_return_complaint 1 "$pretty_name, $content, $instance_id, $referer"
 
-    set item_id [static_portal_content::new \
-            -instance_id $instance_id \
-            -content $content \
-            -pretty_name $pretty_name]
+    db_transaction {
+        set item_id [static_portal_content::new \
+                -instance_id $instance_id \
+                -content $content \
+                -pretty_name $pretty_name]
 
+        static_portal_content::add_to_portal -content_id $item_id -portal_id $portal_id
+    }
+        
     # redirect and abort
     ad_returnredirect $referer
     ad_script_abort