Index: openacs-4/packages/static-portlet/www/element.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/www/element.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/static-portlet/www/element.tcl	18 Feb 2002 05:23:12 -0000	1.1
+++ openacs-4/packages/static-portlet/www/element.tcl	18 Feb 2002 21:20:55 -0000	1.2
@@ -6,6 +6,7 @@
 } -query {
     {content_id ""}
     {referer "../one-community-admin"}
+    portal_id:integer,notnull
 }  -properties {
     title:onevalue
 }
@@ -31,7 +32,7 @@
     -label "Content" \
     -datatype text \
     -widget textarea \
-    -html {rows 5 cols 60 wrap soft} \
+    -html {rows 15 cols 80 wrap soft} \
     -value $content
 
 element create static_element content_id \
@@ -40,16 +41,26 @@
     -widget hidden \
     -value $content_id
 
+element create static_element portal_id \
+    -label "portal_id" \
+    -datatype integer \
+    -widget hidden \
+    -value $portal_id
+
 if {[form is_valid static_element]} {
     form get_values static_element \
-        pretty_name content content_id
+        pretty_name content content_id portal_id
+    
+    db_transaction {
+        static_portal_content::update \
+                -content_id $content_id \
+                -pretty_name $pretty_name \
+                -content $content
+        
+        # Must update portal element title
+        # db_dml update_element_pretty_name "update portal_element_map set pretty_name= :pretty_name where element_id= :element_id"
+    }
 
-
-    static_portal_content::update \
-            -content_id $content_id \
-            -pretty_name $pretty_name \
-            -content $content
-
     # redirect and abort
     ad_returnredirect $referer
     ad_script_abort