Index: openacs-4/packages/acs-subsite/www/user/portrait/upload-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/user/portrait/Attic/upload-2.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-subsite/www/user/portrait/upload-2.tcl	4 Mar 2004 14:52:48 -0000	1.7
+++ openacs-4/packages/acs-subsite/www/user/portrait/upload-2.tcl	12 Mar 2004 18:48:55 -0000	1.8
@@ -169,13 +169,19 @@
 	    update images
 	    set width = :original_width, height = :original_height
 	    where image_id = :revision_id"
+
 	    db_dml update_photo_info "
 	    update cr_revisions
 	    set description = :portrait_comment,
 	        publish_date = sysdate,
 	        mime_type = :guessed_file_type,
 	        title = :title
 	    where revision_id = :revision_id"
+
+	    db_dml update_object_title "
+	    update acs_objects
+	    set title = :title
+	    where object_id = :revision_id"
         }
     }
 }