Index: openacs-4/packages/chat/www/chat.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/chat/www/chat.tcl	26 Oct 2006 11:11:20 -0000	1.8
+++ openacs-4/packages/chat/www/chat.tcl	7 Jun 2007 09:14:25 -0000	1.9
@@ -3,7 +3,7 @@
 
     Decide which template to use HTML or AJAX.
 
-    @author David Dao (ddao@arsdigita.com)
+    @author David Dao (ddao@arsdigita.com) and Pablo Mu�oz(pablomp@tid.es)
     @creation-date November 22, 2000
     @cvs-id $Id$
 } {
@@ -45,9 +45,17 @@
 }
 
 if { ($read_p == "0" && $write_p == "0") || ($ban_p == "1") } {
-    #Display unauthorize privilege page.
-    ad_returnredirect unauthorized
-    ad_script_abort
+	db_1row room_info {
+		select cr.private as private
+		from chat_rooms as cr
+		where cr.room_id = :room_id
+	}
+	if { $private eq "f"} {
+	
+    		#Display unauthorize privilege page.    
+    		ad_returnredirect unauthorized
+    		ad_script_abort
+    	}	
 }
 
 # Get chat screen name.