Index: openacs-4/packages/chat/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/index.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/chat/www/index.tcl	14 Mar 2006 12:16:09 -0000	1.3
+++ openacs-4/packages/chat/www/index.tcl	24 Jun 2006 14:23:42 -0000	1.4
@@ -15,23 +15,80 @@
 }
 
 set package_id [ad_conn package_id]
-
-set context_bar [list]
-
 set user_id [ad_conn user_id]
+set actions [list]
+set room_create_p [permission::permission_p -object_id $package_id -privilege chat_room_create]
+set default_client [parameter::get -parameter "DefaultClient" -default "ajax"]
+set warning ""
 
-set room_create_p [ad_permission_p $package_id chat_room_create]
+if { $default_client eq "ajax" && ![apm_package_installed_p xotcl-core] } {
+    set warning "[_ chat.xotcl_missing]"
+}
 
+if { $room_create_p } {
+    lappend actions "#chat.Create_a_new_room#" room-edit "#chat.Create_a_new_room#"
+}
 
-db_multirow rooms rooms_list {}
+db_multirow -extend { active_users last_activity } rooms rooms_list {} {
+  set room [::chat::Chat create new -volatile -chat_id $room_id]
+  set active_users [$room nr_active_users]
+  set last_activity [$room last_activity]
+}
 
+list::create \
+    -name "rooms" \
+    -multirow "rooms" \
+    -key room_id \
+    -pass_properties {room_create_p} \
+    -actions $actions \
+    -row_pretty_plural [_ chat.rooms] \
+    -elements {
+        active {
+            label "#chat.Active#"
+            html { align "center" }
+            display_template {
+                <if @rooms.active_p@ eq t>
+                <div style="padding-top:5px;">
+                <img src="/resources/chat/active.png">
+                </div>
+                </if>
+                <else>
+                <div style="padding-top:5px;">                
+                <img src="/resources/chat/inactive.png">
+                </div>
+                </else>
+            }
+        }
+        pretty_name {
+            label "#chat.Room_name#"
+            html { width 400px }
+            display_template {
+                <if @rooms.active_p@ eq t>
+                <a href="room-enter?room_id=@rooms.room_id@&client=$default_client">@rooms.pretty_name@</a>&nbsp;\[<a href="room-enter?room_id=@rooms.room_id@&client=html">#chat.HTML_chat#</a>\]
+                </if>
+                <else>
+                @rooms.pretty_name@
+                </else>
+                <div style="float:left">@rooms.description@</div>                
+            }
+        }
+        active_users {
+            label "#chat.active_users#"
+            html { style "text-align:center;" }
+        }
+        last_activity {
+            label "#chat.last_activity#"
+            html { style "text-align:center;" }
+        }
+        actions {
+            label "#chat.actions#"
+            display_template {
+                <a href="chat-transcripts?room_id=@rooms.room_id@" class=button>#chat.Transcripts#</a>
+                <if @room_create_p@ eq 1>
+                <a href="@rooms.base_url@room?room_id=@rooms.room_id@" class=button>#chat.room_admin#</a>
+                </if>
+            }
+        }
+    }
 
 ad_return_template
-    
-
-
-
-
-
-
-