Index: openacs-4/packages/static-portlet/tcl/static-portal-content-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/static-portlet/tcl/static-portal-content-procs.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/static-portlet/tcl/static-portal-content-procs.tcl	23 Jul 2002 13:40:45 -0000	1.12
+++ openacs-4/packages/static-portlet/tcl/static-portal-content-procs.tcl	30 Jul 2002 22:51:19 -0000	1.13
@@ -151,16 +151,30 @@
     }
 
     ad_proc -public update {
+        {-portal_id:required}
         {-content_id:required}
         {-content:required}
         {-pretty_name:required}
     } {
         updates the content item
     } {
-        return [db_dml update_content_item {}]
+        db_transaction {
+            # update the content item
+            db_dml update_content_item {}
+            
+            # update the title of the portal element
+            set element_id [portal::get_element_id_from_unique_param \
+                -portal_id $portal_id \
+                -key content_id \
+                -value $content_id
+            ]
+
+            portal::set_pretty_name \
+                -element_id $element_id \
+                -pretty_name $pretty_name
+        }
     }
 
-
     ad_proc -public delete {
         {-content_id:required}
     } {
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.5 -r1.6
--- openacs-4/packages/static-portlet/www/element.tcl	16 Apr 2002 13:55:32 -0000	1.5
+++ openacs-4/packages/static-portlet/www/element.tcl	30 Jul 2002 22:51:19 -0000	1.6
@@ -74,17 +74,12 @@
     form get_values static_element \
         pretty_name content content_id portal_id referer
     
-    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"
-    }
-
-    # redirect and abort
+    static_portal_content::update \
+        -portal_id $portal_id \
+        -content_id $content_id \
+        -pretty_name $pretty_name \
+        -content $content
+    
     ad_returnredirect $referer
     ad_script_abort
 }