Index: openacs-4/contrib/packages/general-comments/tcl/general-comments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/general-comments/tcl/Attic/general-comments-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/contrib/packages/general-comments/tcl/general-comments-procs.tcl	7 Jul 2003 01:51:04 -0000	1.5
+++ openacs-4/contrib/packages/general-comments/tcl/general-comments-procs.tcl	12 Mar 2004 16:57:20 -0000	1.6
@@ -41,37 +41,34 @@
     set description $title
     
     db_transaction {
-	db_exec_plsql insert_comment {}
+        db_exec_plsql insert_comment {}
 	
-	db_1row get_revision {
-	    select content_item__get_latest_revision(:comment_id) as revision_id
-	    from dual
-	} 
+        db_1row get_revision {
+            select content_item__get_latest_revision(:comment_id) as revision_id
+            from dual
+        } 
 
-	db_dml set_content {
-	    update cr_revisions
-	    set content = empty_blob()
-	    where revision_id = :revision_id
-	    returning content into :1
-	} -blobs [list $content]
+        db_dml set_content {
+            update cr_revisions
+            set content = empty_blob()
+            where revision_id = :revision_id
+            returning content into :1
+        } -blobs [list $content]
 
-	# Grant the user sufficient permissions to 
-	# created comment. This is done here to ensure that
-	# a fail on permissions granting will not leave
-	# the comment with incorrect permissions. 
-	if {![empty_string_p $creation_id]} {
+        # Grant the user sufficient permissions to 
+        # created comment. This is done here to ensure that
+        # a fail on permissions granting will not leave
+        # the comment with incorrect permissions. 
+        if {![empty_string_p $creation_id]} {
     	    permission::grant -object_id $comment_id \
-		              -party_id $creation_user \
-		              -privilege "read"
+                -party_id $creation_user \
+                -privilege "read"
 
-	    permission::grant -object_id $comment_id \
-		              -party_id $creation_user \
-		              -privilege "write"
-
-	}
-
+            permission::grant -object_id $comment_id \
+                -party_id $creation_user \
+                -privilege "write"
+        }
     }
-
 }
 
 ad_proc -deprecated -public general_comments_get_comments {