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.1 -r1.2
--- openacs-4/packages/acs-subsite/www/user/portrait/upload-2.tcl	13 Mar 2001 22:59:26 -0000	1.1
+++ openacs-4/packages/acs-subsite/www/user/portrait/upload-2.tcl	3 May 2001 04:00:49 -0000	1.2
@@ -163,18 +163,20 @@
 	}
     } else {
 	# it's merely an update
-	db_dml update_photo $update_photo -blob_files [list $tmp_filename]
-	db_dml update_image_info "
-	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_transaction {
+	    db_dml update_photo $update_photo -blob_files [list $tmp_filename]
+	    db_dml update_image_info "
+	    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"
+        }
     }
 }