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 -N -r1.8 -r1.8.2.1
--- openacs-4/packages/chat-portlet/www/chat-portlet.tcl	7 Aug 2017 23:48:07 -0000	1.8
+++ openacs-4/packages/chat-portlet/www/chat-portlet.tcl	14 Feb 2019 16:15:01 -0000	1.8.2.1
@@ -19,7 +19,7 @@
 
     @author agustin (Agustin.Lopez@uv.es)
     @creation-date 2004-10-10
-    @version $Id: chat-portlet.tcl,v 0.1 2004/10/10
+    @cvs-id $Id: chat-portlet.tcl,v 0.1 2004/10/10
 
 } -properties {
     context:onevalue
@@ -37,23 +37,20 @@
 set user_id [ad_conn user_id]
 set community_id [dotlrn_community::get_community_id]
 set room_create_p [permission::permission_p -object_id $user_id -privilege chat_room_create]
-set default_mode [parameter::get -parameter DefaultClient -default "ajax"]
 set num_rooms 0
 
 if { $community_id eq 0 } {
-	set query_name "rooms_list_all"
+    set query_name "rooms_list_all"
 } else {
-	set query_name "rooms_list"
+    set query_name "rooms_list"
 }
-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]
+db_multirow -extend { can_see_p room_enter_url } rooms $query_name {} {
+    set can_see_p 0
+    if { $user_p || $admin_p } {
+        set can_see_p 1
+        incr num_rooms
+    }
+    set room_enter_url [export_vars -base "${base_url}room-enter" {room_id}]
 }
 
 template::list::create -name chat_rooms -multirow rooms \
@@ -68,12 +65,6 @@
         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