Index: openacs-4/packages/chat/www/room.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/chat/www/room.tcl	14 Mar 2006 12:16:09 -0000	1.3
+++ openacs-4/packages/chat/www/room.tcl	24 Jun 2006 14:23:42 -0000	1.4
@@ -1,7 +1,6 @@
 #/www/chat/room.tcl
 ad_page_contract {
     Display information about chat room.
-
     @author David Dao (ddao@arsdigita.com)
     @creation-date November 15, 2000
     @cvs-id $Id$
@@ -24,7 +23,6 @@
     moderator_grant_p:onevalue
     moderator_revoke_p:onevalue
     transcript_create_p:onevalue
-    transcript_delete_p:onevalue
     transcript_edit_p:onevalue
     transcript_view_p:onevalue
     moderators:multirow
@@ -35,68 +33,60 @@
 
 set context_bar [list "[_ chat.Room_Information]"]
 
-
 ###
 # Get all available permission of this user on this room.
 ###
-set room_view_p [ad_permission_p $room_id chat_room_view]
-set room_edit_p [ad_permission_p $room_id chat_room_edit]
-set room_delete_p [ad_permission_p $room_id chat_room_delete]
-set user_ban_p [ad_permission_p $room_id chat_user_ban]
-set user_unban_p [ad_permission_p $room_id chat_user_unban]
-set user_grant_p [ad_permission_p $room_id chat_user_grant]
-set user_revoke_p [ad_permission_p $room_id chat_user_revoke]
-set moderator_grant_p [ad_permission_p $room_id chat_moderator_grant]
-set moderator_revoke_p [ad_permission_p $room_id chat_moderator_revoke]
-set transcript_create_p [ad_permission_p $room_id chat_transcript_create]
-set transcript_delete_p [ad_permission_p $room_id chat_transcript_delete]
-set transcript_edit_p [ad_permission_p $room_id chat_transcript_edit]
-set transcript_view_p [ad_permission_p $room_id chat_transcript_view]
+set room_view_p [permission::permission_p -object_id $room_id -privilege chat_room_view]
+set room_edit_p [permission::permission_p -object_id $room_id -privilege chat_room_edit]
+set room_delete_p [permission::permission_p -object_id $room_id -privilege chat_room_delete]
+set user_ban_p [permission::permission_p -object_id $room_id -privilege chat_user_ban]
+set user_unban_p [permission::permission_p -object_id $room_id -privilege chat_user_unban]
+set user_grant_p [permission::permission_p -object_id $room_id -privilege chat_user_grant]
+set user_revoke_p [permission::permission_p -object_id $room_id -privilege chat_user_revoke]
+set moderator_grant_p [permission::permission_p -object_id $room_id -privilege chat_moderator_grant]
+set moderator_revoke_p [permission::permission_p -object_id $room_id -privilege chat_moderator_revoke]
+set transcript_create_p [permission::permission_p -object_id $room_id -privilege chat_transcript_create]
 
 ###
-# End geting all available permissions.
-###
-
-###
 # Get room basic information.
 ###
-
-
-#db_1row room_info {
-#    select pretty_name, description, decode(moderated_p, 't', 'Yes', 'No') as moderated_p,
-#           decode(archive_p, 't', 'Yes', 'No') as archive_p,
-#           decode(active_p, 't', 'Yes', 'No') as active_p
-#    from chat_rooms
-#    where room_id = :room_id
-#}
-
 db_1row room_info {
-    select pretty_name, description, moderated_p, active_p, archive_p
+    select pretty_name, description, moderated_p, active_p, archive_p, auto_flush_p, auto_transcript_p
     from chat_rooms
     where room_id = :room_id
 }
 
-# List available room moderators.
-db_multirow moderators list_moderators {}
+# get db-message count
+set message_count [db_string message_count "select count(*) from chat_msgs where room_id = :room_id" -default 0]
 
-# List authorized chat users.
-db_multirow users_allow list_user_allow {}
-
 # List user ban from chat
-db_multirow users_ban list_user_ban {}
+db_multirow banned_users list_user_ban {}
 
+list::create \
+    -name "banned_users" \
+    -multirow "banned_users" \
+    -key party_id \
+    -pass_properties { user_unban_p room_id } \
+    -row_pretty_plural [_ chat.banned_users] \
+    -elements {
+        name {
+            label "#chat.Name#"
+        }
+        email {
+            label "#acs-kernel.Email_Address#"
+        }
+        actions {
+            label "#chat.actions#"
+            html { align "center" }
+            display_template {
+                <if @user_unban_p@ eq "1">
+                <a href="user-unban?room_id=@room_id@&party_id=@banned_users.party_id@">
+                <img src="/shared/images/Delete16.gif" border="0">
+                </a>
+                </if>
+            }
+        }
+    }
 
-# List available chat transcript
-db_multirow chat_transcripts list_transcripts {}
-
 ad_return_template
 
-
-
-
-
-
-
-
-
-