Index: openacs-4/packages/chat-portlet/www/chat-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-portlet/www/chat-portlet.tcl,v
diff -u -r1.5.2.2 -r1.5.2.3
--- openacs-4/packages/chat-portlet/www/chat-portlet.tcl	19 Aug 2008 22:09:45 -0000	1.5.2.2
+++ openacs-4/packages/chat-portlet/www/chat-portlet.tcl	20 Aug 2008 17:41:16 -0000	1.5.2.3
@@ -45,13 +45,15 @@
 } else {
 	set query_name "rooms_list"
 }
-db_multirow -extend { can_see_p room_enter_url } rooms $query_name {} {
+db_multirow -extend { can_see_p room_enter_url room_html_url html_text } rooms $query_name {} {
 	set can_see_p 0
 	if { $user_p || $admin_p } {
 		set can_see_p 1
 		set num_rooms [expr $num_rooms + 1]
 	}   
     set room_enter_url [export_vars -base "${base_url}room-enter" {room_id {client $default_mode}}]
+    set room_html_url [export_vars -base "${base_url}room-enter" {room_id {client html}}]
+    set html_text [_ chat.html_client_msg]
 }
 
 template::list::create -name chat_rooms -multirow rooms \
@@ -66,6 +68,12 @@
         description {
             label "[_ chat.Description]"
         }
+        html_mode {
+            label "[_ chat-portlet.html_mode]"
+            link_url_col room_html_url
+            display_col html_text
+            link_html {title "[_ chat.Enter_html_pretty_name]"}
+        }
     }
 
 ad_return_template