Index: openacs-4/packages/chat/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/index.tcl,v
diff -u -r1.3 -r1.3.2.1
--- openacs-4/packages/chat/www/index.tcl 14 Mar 2006 12:16:09 -0000 1.3
+++ openacs-4/packages/chat/www/index.tcl 30 Mar 2006 09:15:12 -0000 1.3.2.1
@@ -15,23 +15,89 @@
}
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"]
+set warning ""
-set room_create_p [ad_permission_p $package_id chat_room_create]
+if { $default_client eq "ajax" } {
+ if { ![apm_package_installed_p xotcl-core] } {
+ set warning "[_ chat.xotcl_missing]"
+ set default_client "html"
+ } elseif { [llength [info command ::chat::Chat]] == 0 } {
+ set warning "[_ chat.bootstrap_patch_missing]"
+ set default_client "html"
+ }
+}
+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 {} {
+ if { [llength [info command ::chat::Chat]] > 0 } {
+ set room [::chat::Chat create new -volatile -chat_id $room_id]
+ set active_users [$room nr_active_users]
+ set last_activity [$room last_activity]
+ } else {
+ set active_users "-"
+ set 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 "Aktiv"
+ html { align "center" }
+ display_template {
+
+
+
![](/resources/chat/active.png)
+
+
+
+
+
![](/resources/chat/inactive.png)
+
+
+ }
+ }
+ pretty_name {
+ label "Name"
+ display_template {
+
+ @rooms.pretty_name@
+
+
+ @rooms.pretty_name@
+
+ }
+ }
+ 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 {
+ #chat.Transcripts#
+
+ #chat.room_admin#
+
+ }
+ }
+ }
ad_return_template
-
-
-
-
-
-
-
-