Index: openacs-4/packages/chat/lib/transcript-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/lib/transcript-view.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/chat/lib/transcript-view.tcl	7 Jun 2007 09:14:24 -0000	1.3
+++ openacs-4/packages/chat/lib/transcript-view.tcl	19 Nov 2007 01:14:15 -0000	1.4
@@ -8,21 +8,4 @@
     where transcript_id=:transcript_id
 }
 
-set user_id [ad_conn user_id]
-#A professor who creates a rooom will be able to admin it.
-db_1row room_info2 {
-		select count(cr.creator) as counter2
-		from chat_rooms cr
-		where cr.room_id = :room_id
-		and cr.creator = :user_id		
- }
- if { $counter2 > 0} { 	
- 		set admin_professor "t"
- } else {
- 	 set admin_professor "f"
- } 
-if { $admin_professor eq "t"} {
-set edit_p 1
-} else {
 set edit_p [permission::permission_p -object_id $room_id -privilege "chat_transcript_edit"]
-}