Index: openacs-4/packages/chat/chat.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/chat.info,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/chat/chat.info	14 Mar 2006 12:16:08 -0000	1.7
+++ openacs-4/packages/chat/chat.info	24 Jun 2006 14:23:40 -0000	1.8
@@ -7,23 +7,28 @@
     <initial-install-p>f</initial-install-p>
     <singleton-p>f</singleton-p>
     
-    <version name="5.0d2" url="http://openacs.org/repository/download/apm/chat-5.0d2.apm">
-        <owner>David Dao</owner>
-        <summary>Server based chat with an html and java client.</summary>
-        <release-date>2004-10-10</release-date>
+    <version name="5.0d6" url="http://openacs.org/repository/download/apm/chat-5.0d6.apm">
+        <owner url="http://www.openacs.org">Peter Alberer</owner>
+        <summary>Server based chat with an html and ajax client.</summary>
+        <release-date>2006-04-11</release-date>
         <vendor url="http://openacs.org">OpenACS</vendor>
-        <description format="text/html">Modified by Agustin.Lopez@uv.es (University of Valencia, Spain).</description>
+        <description format="text/html">Adapted by Peter Alberer 2006/03/25 to allow java and ajax to coexist. 
+Adapted by Tekne 2006/03/01 to replace JAVA server with AJAX; make use of generalized chat class from xotcl-core.</description>
+        <maturity>0</maturity>
 
-        <provides url="chat" version="5.0d2"/>
+        <provides url="chat" version="5.0d6"/>
         <requires url="acs-kernel" version="5.0d13"/>
+        <requires url="xotcl-core" version="0.36"/>
 
         <callbacks>
         </callbacks>
         <parameters>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="AppletHeight"  default="500" description="Height of the applet"/>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="AppletWidth"  default="700" description="width of the applet"/>
-            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="ServerHost"  default="" description="Chat server host"/>
+            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="DefaultClient"  default="ajax" description="Default client interface to use"/>
+            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="ServerHost"  description="Chat server host"/>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="ServerPort"  default="8200" description="Listening for chat connection on this port"/>
+            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="UserColors"  default="#006400 #0000ff #b8860b #bdb76b #8b0000" description="A list of colors to assign to user names in the chat"/>
         </parameters>
 
     </version>
Index: openacs-4/packages/chat/catalog/chat.ca_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/catalog/chat.ca_ES.ISO-8859-1.xml,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat/catalog/chat.ca_ES.ISO-8859-1.xml	14 Mar 2006 12:16:08 -0000	1.1
+++ openacs-4/packages/chat/catalog/chat.ca_ES.ISO-8859-1.xml	24 Jun 2006 14:23:40 -0000	1.2
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
-<message_catalog package_key="chat" package_version="5.0d2" locale="ca_ES" charset="ISO-8859-1">
+<message_catalog package_key="chat" package_version="5.0d6" locale="ca_ES" charset="ISO-8859-1">
 
   <msg key="Active">Activa</msg>
   <msg key="Add_moderator">Afegeix moderador</msg>
@@ -79,12 +79,10 @@
   <msg key="Unban_user">Deixa de bandejar l'usuari</msg>
   <msg key="Untitled">Sense t�tol</msg>
   <msg key="Update_room">Actualitza la sala</msg>
-  <msg key="Users_allow">Permet l'usuari</msg>
   <msg key="Users_ban">Bandeja l'usuari</msg>
   <msg key="View">Veure</msg>
   <msg key="View_transcript">Veure transcripci�</msg>
   <msg key="What_search">per nom o correu electr�nic o nom d'usuari limitat a</msg>
-  <msg key="Yes">S�</msg>
   <msg key="You_dont_have_permission_room">No teniu perm�s per entrar en aquesta sala de xat</msg>
   <msg key="your_name_is">el vostre nom �s</msg>
 </message_catalog>
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/catalog/chat.de_DE.ISO-8859-1.xml'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/chat/catalog/chat.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/catalog/chat.en_US.ISO-8859-1.xml,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat/catalog/chat.en_US.ISO-8859-1.xml	14 Mar 2006 12:16:08 -0000	1.1
+++ openacs-4/packages/chat/catalog/chat.en_US.ISO-8859-1.xml	24 Jun 2006 14:23:40 -0000	1.2
@@ -1,17 +1,27 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
-<message_catalog package_key="chat" package_version="5.0d2" locale="en_US" charset="ISO-8859-1">
+<message_catalog package_key="chat" package_version="5.0d6" locale="en_US" charset="ISO-8859-1">
 
+  <msg key="actions">Actions</msg>
   <msg key="Active">Active</msg>
+  <msg key="active_users">active users</msg>
   <msg key="Add_moderator">Add moderator</msg>
   <msg key="Add_user_to_room">Add user to room</msg>
+  <msg key="Ajax">Ajax</msg>
+  <msg key="ajax_client_msg">Ajax client</msg>
   <msg key="Archive">Archive</msg>
   <msg key="Are_you_sure_you_want_to_delete">Are you sure you want to delete</msg>
   <msg key="Are_you_sure_you_want_to_revoke">Are you sure you want to revoke chat user privilege of</msg>
   <msg key="Are_you_sure_you_want_to_revoke_moderator">Are you sure you want to revoke moderator privilege of</msg>
   <msg key="Are_you_sure_you_want_to_unban">Are you sure you want to unban</msg>
+  <msg key="AutoFlush">Automatically flush messages at midnight</msg>
+  <msg key="AutoFlushHelp">Automatically flush the messages in the database at midnight. This is only used if the rooms is archived.</msg>
+  <msg key="automatically_created_transcript">Automatically created transcript</msg>
+  <msg key="AutoTranscript">Auto Transcript</msg>
+  <msg key="AutoTranscriptHelp">Automatically create a transcript of the messages after flushing.</msg>
   <msg key="Ban">Ban</msg>
   <msg key="Ban_chat_read_write">Ban chat read/write privilege for</msg>
   <msg key="Ban_user">Ban user</msg>
+  <msg key="banned_users">Banned users</msg>
   <msg key="Chat">Chat</msg>
   <msg key="Chat_main_page">Chat main page</msg>
   <msg key="Confirm_chat_transcript_delete">Confirm chat transcript delete</msg>
@@ -28,16 +38,23 @@
   <msg key="Create_new_room_failed">Create new room failed</msg>
   <msg key="Create_room">Create room</msg>
   <msg key="Create_transcript">Create transcript</msg>
+  <msg key="creation_date">Creation date</msg>
+  <msg key="current_transcript">Current conversation</msg>
+  <msg key="date">date</msg>
+  <msg key="deactivate_room_after_transcript">Deactive the room after creating transcript</msg>
   <msg key="Delete_all_messages_in_the_room">Delete all messages in the room</msg>
   <msg key="Delete_messages">Delete messages</msg>
+  <msg key="delete_messages_after_transcript">Delete messages after creating the transcript</msg>
   <msg key="Delete_messages_failed">Delete messages failed</msg>
   <msg key="Delete_room">Delete room</msg>
   <msg key="Delete_room_failed">Delete room failed</msg>
   <msg key="Delete_transcript">Delete transcript</msg>
   <msg key="Delete_transcript_failed">Delete transcript failed</msg>
   <msg key="Description">Description</msg>
   <msg key="Edit">Edit</msg>
+  <msg key="Edit_room">Edit Room</msg>
   <msg key="Edit_transcript">Edit transcript</msg>
+  <msg key="exit_msg">exit chat room</msg>
   <msg key="Extreme_Actions">Extreme Actions</msg>
   <msg key="from">from</msg>
   <msg key="Grant">Grant</msg>
@@ -47,44 +64,61 @@
   <msg key="Grant_user">Grant user</msg>
   <msg key="has_entered_the_room">has entered the room</msg>
   <msg key="has_left_the_room">has left the room</msg>
+  <msg key="Hml">HTML</msg>
   <msg key="HTML_chat">HTML</msg>
+  <msg key="html_client_msg">HTML client</msg>
+  <msg key="Java">Java</msg>
   <msg key="Java_chat">Java</msg>
+  <msg key="Javascript">Javascript</msg>
   <msg key="key">key</msg>
+  <msg key="last_activity">last activity</msg>
   <msg key="Log_off">Log off</msg>
+  <msg key="message">Message</msg>
+  <msg key="message_count">Message count</msg>
   <msg key="messages_in">messages in</msg>
   <msg key="Moderated">Moderated</msg>
+  <msg key="msg">Message</msg>
   <msg key="Name">Name</msg>
   <msg key="No_information_available">No information available</msg>
+  <msg key="noactive">No active</msg>
+  <msg key="Refresh">Refresh</msg>
   <msg key="remove">remove</msg>
   <msg key="Revoke">Revoke</msg>
   <msg key="revoke">revoke</msg>
   <msg key="Revoke_moderator">Revoke moderator</msg>
   <msg key="Revoke_user">Revoke user</msg>
   <msg key="room_admin">Admin</msg>
+  <msg key="Room_deactivate">Deactive Room</msg>
   <msg key="Room_Information">Room Information</msg>
   <msg key="Room_moderators">Room moderators</msg>
   <msg key="Room_name">Room name</msg>
   <msg key="Room_no_active">Room no active</msg>
   <msg key="Room_not_found">Room not found, Invalid room id</msg>
+  <msg key="rooms">rooms</msg>
   <msg key="Send_Refresh">Send/Refresh</msg>
+  <msg key="sending_message">Sending message...</msg>
   <msg key="There_are_no_rooms_available">There are no rooms available</msg>
   <msg key="to">to</msg>
+  <msg key="Transcript">Transcript</msg>
   <msg key="Transcript_name">Transcript name</msg>
+  <msg key="transcript_of_date">Transcript of</msg>
+  <msg key="transcript_of_room">Transcript of the messages in room</msg>
   <msg key="Transcript_preview">Transcript preview</msg>
+  <msg key="transcription_msg">transcription of all chat messages</msg>
   <msg key="Transcripts">Transcripts</msg>
+  <msg key="transcripts_of_room">Available transcripts in room</msg>
   <msg key="Unauthorized">Unauthorized</msg>
   <msg key="Unauthorized_privilege">Unauthorized privilege</msg>
   <msg key="Unban">Unban</msg>
   <msg key="unban">unban</msg>
   <msg key="Unban_user">Unban user</msg>
   <msg key="Untitled">Untitled</msg>
   <msg key="Update_room">Update room</msg>
-  <msg key="Users_allow">Users allow</msg>
   <msg key="Users_ban">Users ban</msg>
   <msg key="View">View</msg>
   <msg key="View_transcript">View transcript</msg>
   <msg key="What_search">for name or email or username limited to</msg>
-  <msg key="Yes">Yes</msg>
+  <msg key="xotcl_missing">&lt;b&gt;Warning&lt;/b&gt; The package parameter &quot;DefaultClient&quot; is set to &quot;Ajax&quot; but the package xotcl-core is not installed. Ajax will not work without xotcl-core!</msg>
   <msg key="You_dont_have_permission_room">You don't have permission to enter this chat room</msg>
   <msg key="your_name_is">your name is</msg>
 </message_catalog>
Index: openacs-4/packages/chat/catalog/chat.es_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/catalog/chat.es_ES.ISO-8859-1.xml,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat/catalog/chat.es_ES.ISO-8859-1.xml	14 Mar 2006 12:16:08 -0000	1.1
+++ openacs-4/packages/chat/catalog/chat.es_ES.ISO-8859-1.xml	24 Jun 2006 14:23:40 -0000	1.2
@@ -1,17 +1,27 @@
 <?xml version="1.0" encoding="ISO-8859-1"?>
-<message_catalog package_key="chat" package_version="5.0d2" locale="es_ES" charset="ISO-8859-1">
+<message_catalog package_key="chat" package_version="5.0d6" locale="es_ES" charset="ISO-8859-1">
 
+  <msg key="actions">Acciones</msg>
   <msg key="Active">Activo</msg>
+  <msg key="active_users">Usuarios activos</msg>
   <msg key="Add_moderator">A�adir moderador</msg>
   <msg key="Add_user_to_room">A�adir un usuario a la sala</msg>
-  <msg key="Archive">Archivo</msg>
+  <msg key="Ajax">Ajax</msg>
+  <msg key="ajax_client_msg">Cliente Ajax</msg>
+  <msg key="Archive">Archivar</msg>
   <msg key="Are_you_sure_you_want_to_delete">Seguro que quieres borrar</msg>
   <msg key="Are_you_sure_you_want_to_revoke">Seguro que quieres revocar el permiso de usuario de chat de</msg>
   <msg key="Are_you_sure_you_want_to_revoke_moderator">Seguro que quieres revocar el permiso de moderador de chat de</msg>
   <msg key="Are_you_sure_you_want_to_unban">Seguro que quieres no expulsar</msg>
+  <msg key="AutoFlush">�Vaciar autom�ticamente la sala de mensajes a medianoche?</msg>
+  <msg key="AutoFlushHelp">Vacia autom�ticamente la sala a medianoche. S�lo se usar� si ha elegido la opci�n &quot;Archivar&quot;.</msg>
+  <msg key="automatically_created_transcript">Transcripci�n creada autom�ticamente</msg>
+  <msg key="AutoTranscript">�Crear transcripci�n autom�ticamente antes de vaciar la sala?</msg>
+  <msg key="AutoTranscriptHelp">Crea, de forma autom�tica, una transcripci�n antes de vaciar la sala.</msg>
   <msg key="Ban">Expulsar</msg>
   <msg key="Ban_chat_read_write">Permiso de Expulsar para</msg>
   <msg key="Ban_user">Expulsar usuario</msg>
+  <msg key="banned_users">Usuarios expulsados</msg>
   <msg key="Chat">Chat</msg>
   <msg key="Chat_main_page">P�gina principal de chat</msg>
   <msg key="Confirm_chat_transcript_delete">Confirmar el borrado de la transcripci�n del chat</msg>
@@ -28,16 +38,23 @@
   <msg key="Create_new_room_failed">Error creando una sala nueva</msg>
   <msg key="Create_room">Crear sala</msg>
   <msg key="Create_transcript">Crear transcripci�n</msg>
+  <msg key="creation_date">Fecha de creaci�n</msg>
+  <msg key="current_transcript">Conversaci�n en curso</msg>
+  <msg key="date">fecha</msg>
+  <msg key="deactivate_room_after_transcript">Desactivar la sala una vez creada la transcripci�n</msg>
   <msg key="Delete_all_messages_in_the_room">Borrar todos los mensajes de la sala</msg>
   <msg key="Delete_messages">Borrar mensajes</msg>
+  <msg key="delete_messages_after_transcript">Borrar mensajes despu�s de crear la transcripci�n</msg>
   <msg key="Delete_messages_failed">Error borrando mensajes</msg>
   <msg key="Delete_room">Borrar sala</msg>
   <msg key="Delete_room_failed">Error borrando sala</msg>
   <msg key="Delete_transcript">Borrar transcripci�n</msg>
   <msg key="Delete_transcript_failed">Error borrando transcripci�n</msg>
   <msg key="Description">Descripci�n</msg>
   <msg key="Edit">Editar</msg>
+  <msg key="Edit_room">Editar sala</msg>
   <msg key="Edit_transcript">Editar transcripci�n</msg>
+  <msg key="exit_msg">Salir de la sala</msg>
   <msg key="Extreme_Actions">Acciones extremas</msg>
   <msg key="from">de</msg>
   <msg key="Grant">Asignar</msg>
@@ -47,44 +64,60 @@
   <msg key="Grant_user">Asignar usuario</msg>
   <msg key="has_entered_the_room">ha entrado en la sala</msg>
   <msg key="has_left_the_room">ha abandonado la sala</msg>
+  <msg key="Hml">HTML</msg>
   <msg key="HTML_chat">HTML</msg>
+  <msg key="html_client_msg">Cliente HTML</msg>
+  <msg key="Java">Java</msg>
   <msg key="Java_chat">Java</msg>
+  <msg key="Javascript">Javascript</msg>
   <msg key="key">clave</msg>
+  <msg key="last_activity">�ltima actividad</msg>
   <msg key="Log_off">Salir</msg>
+  <msg key="message">Mensaje</msg>
+  <msg key="message_count">N�mero de mensajes</msg>
   <msg key="messages_in">mensajes en</msg>
   <msg key="Moderated">Moderada</msg>
+  <msg key="msg">Mensaje</msg>
   <msg key="Name">Nombre</msg>
   <msg key="No_information_available">No hay informaci�n disponible</msg>
+  <msg key="noactive">No activa</msg>
+  <msg key="Refresh">Refrescar</msg>
   <msg key="remove">quitar</msg>
   <msg key="Revoke">Revocar</msg>
   <msg key="revoke">revocar</msg>
   <msg key="Revoke_moderator">Revocar moderador</msg>
   <msg key="Revoke_user">Revocar usuario</msg>
   <msg key="room_admin">Admin</msg>
+  <msg key="Room_deactivate">Desactivar la sala</msg>
   <msg key="Room_Information">Informaci�n de sala</msg>
   <msg key="Room_moderators">Moderadores de sala</msg>
   <msg key="Room_name">Nombre de la sala</msg>
   <msg key="Room_no_active">Sala no activa</msg>
   <msg key="Room_not_found">Sala no encontrada. Id de sala incorrecto</msg>
   <msg key="Send_Refresh">Enviar/Actualizar</msg>
+  <msg key="sending_message">Enviando mensaje...</msg>
   <msg key="There_are_no_rooms_available">No hay salas disponibles</msg>
   <msg key="to">a</msg>
+  <msg key="Transcript">Transcripci�n</msg>
   <msg key="Transcript_name">Nombre de la transcripci�n</msg>
+  <msg key="transcript_of_date">Transcripci�n del</msg>
+  <msg key="transcript_of_room">Transcripci�n de los mensajes de la sala</msg>
   <msg key="Transcript_preview">Previsualizaci�n de la transcripci�n</msg>
+  <msg key="transcription_msg">Transcripci�n de todos los mensajes</msg>
   <msg key="Transcripts">Transcripciones</msg>
+  <msg key="transcripts_of_room">Transcripciones de la sala</msg>
   <msg key="Unauthorized">No autorizado</msg>
   <msg key="Unauthorized_privilege">Privilegio no autorizado</msg>
   <msg key="Unban">No expulsar</msg>
   <msg key="unban">no expulsar</msg>
   <msg key="Unban_user">No expulsar usuario</msg>
   <msg key="Untitled">Sin t�tulo</msg>
   <msg key="Update_room">Actualizar sala</msg>
-  <msg key="Users_allow">Usuarios autorizados</msg>
   <msg key="Users_ban">Usuarios expulsados</msg>
   <msg key="View">Ver</msg>
   <msg key="View_transcript">Ver transcrici�n</msg>
   <msg key="What_search">por nombre o email o usuario limitado a</msg>
-  <msg key="Yes">Si</msg>
+  <msg key="xotcl_missing">&lt;b&gt;Atenci�n&lt;/b&gt; El par�metro &quot;DefaultClient&quot; contiene &quot;Ajax&quot; pero el paquete xotcl-core no est� instalado. El chat Ajax no podr� funcionar sin xotcl-core.</msg>
   <msg key="You_dont_have_permission_room">No tienes permiso para entrar en esta sala</msg>
   <msg key="your_name_is">tu nombre es</msg>
 </message_catalog>
Index: openacs-4/packages/chat/java/adClientSession.java
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/java/Attic/adClientSession.java,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/chat/java/adClientSession.java	14 Mar 2006 12:16:08 -0000	1.2
+++ openacs-4/packages/chat/java/adClientSession.java	24 Jun 2006 14:23:40 -0000	1.3
@@ -105,7 +105,8 @@
 
                             datasource.addSession(this, room_id);
                             datasource.broadcastAppletOnly(adChatSystemMessage.buildUserEnterMsg(user_id, user_name), room_id);
-                            datasource.broadcast(adChatMessage.buildBroadcastMsg(user_id, user_name, room_id, " has entered the room."), room_id);
+                            datasource.broadcastAppletOnly(adChatMessage.buildBroadcastMsg(user_id, user_name, room_id, " has entered the room!"), room_id);
+                            datasource.broadcastAolOnly(adChatMessage.buildBroadcastMsg(user_id, user_name, room_id, "/enter"), room_id);
                             authenticate_p = true;
                         }
                     }
@@ -130,7 +131,14 @@
                     adChatMessage msg = new adChatMessage(str);
                     str = adChatMessage.buildModerateMsg(msg.getFromUser(), msg.getRoomId(), msg.getBody());
                 }
-            datasource.broadcast(str, room_id);
+                
+                if (from_HTML_client) {
+                	//System.out.println("BroadCasting to applets only!");
+                	datasource.broadcastAppletOnly(str, room_id);
+                } else {
+                	//System.out.println("BroadCasting to all stations!");
+                	datasource.broadcast(str, room_id);
+                }
                     
             }
             socket.close();
@@ -139,7 +147,8 @@
         }
         // Remove user from room. And broadcast message to everyone in the room.
         datasource.removeSession(this, room_id);
-        datasource.broadcast(adChatMessage.buildBroadcastMsg(user_id, user_name, room_id, " has leave the room."), room_id);
+        datasource.broadcastAppletOnly(adChatMessage.buildBroadcastMsg(user_id, user_name, room_id, " has left the room!"), room_id);
+        datasource.broadcastAolOnly(adChatMessage.buildBroadcastMsg(user_id, user_name, room_id, "/leave"), room_id);
     }
 
     public void postMessage(String msg) {
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/lib/current-messages.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/lib/current-messages.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/lib/transcript-view.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/lib/transcript-view.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/lib/transcripts.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/lib/transcripts.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/lib/transcripts.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/chat/sql/oracle/chat-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/sql/oracle/chat-create.sql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/chat/sql/oracle/chat-create.sql	30 Sep 2003 12:10:05 -0000	1.2
+++ openacs-4/packages/chat/sql/oracle/chat-create.sql	24 Jun 2006 14:23:41 -0000	1.3
@@ -142,7 +142,13 @@
     -- if set then log all chat messages in this room. 
     archive_p          char(1) default 'f'
                        constraint chat_rooms_archive_p_ck 
-                       check (archive_p in ('t', 'f'))
+                       check (archive_p in ('t', 'f')),
+	auto_flush_p	   char(1) default 't'
+					   constraint chat_rooms_auto_flush_ck
+					   check (auto_flush_p in ('t', 'f')),
+	auto_transcript_p  char(1) default 'f'
+					   constraint chat_rooms_auto_transcript_ck
+					   check (auto_transcript_p in ('t', 'f'))
 ); 
 
 declare
@@ -237,6 +243,8 @@
         moderated_p    in chat_rooms.moderated_p%TYPE    default 'f',
         active_p       in chat_rooms.active_p%TYPE       default 't',
         archive_p      in chat_rooms.archive_p%TYPE      default 'f',
+	auto_flush_p   in chat_rooms.auto_flush_p%TYPE	 default 't',
+	auto_transcript_p in chat_rooms.auto_transcript_p%TYPE default 'f',
         context_id     in acs_objects.context_id%TYPE    default null,
         creation_date  in acs_objects.creation_date%TYPE default sysdate,
         creation_user  in acs_objects.creation_user%TYPE default null,
@@ -254,7 +262,9 @@
         description    in chat_rooms.description%TYPE,
         moderated_p    in chat_rooms.moderated_p%TYPE,
         active_p       in chat_rooms.active_p%TYPE,
-        archive_p      in chat_rooms.archive_p%TYPE
+        archive_p      in chat_rooms.archive_p%TYPE,
+   		auto_flush_p   in chat_rooms.auto_flush_p%TYPE,
+		auto_transcript_p	in chat_rooms.auto_transcript_p%TYPE
     );        
 
     function name (
@@ -329,6 +339,8 @@
         moderated_p    in chat_rooms.moderated_p%TYPE    default 'f',
         active_p       in chat_rooms.active_p%TYPE       default 't',
         archive_p      in chat_rooms.archive_p%TYPE      default 'f',
+	auto_flush_p   in chat_rooms.auto_flush_p%TYPE	 default 't',
+	auto_transcript_p in chat_rooms.auto_transcript_p%TYPE default 'f',
         context_id     in acs_objects.context_id%TYPE    default null,
         creation_date  in acs_objects.creation_date%TYPE default sysdate,
         creation_user  in acs_objects.creation_user%TYPE default null,
@@ -339,27 +351,31 @@
         v_room_id chat_rooms.room_id%TYPE;
     begin
         v_room_id := acs_object.new (
-            object_type   => object_type,
-            creation_date => creation_date,
-            creation_user => creation_user,
-            creation_ip   => creation_ip,
-            context_id    => context_id
-            );
+            object_type   => chat_room.new.object_type,
+            creation_date => chat_room.new.creation_date,
+            creation_user => chat_room.new.creation_user,
+            creation_ip   => chat_room.new.creation_ip,
+            context_id    => chat_room.new.context_id
+        );
 
         insert into chat_rooms (
             room_id,   
             pretty_name, 
             description, 
             moderated_p, 
             active_p, 
-            archive_p)
-        values (
+            archive_p,
+	    auto_flush_p,
+	    auto_transcript_p)
+	values (
             v_room_id, 
-            pretty_name, 
-            description, 
-            moderated_p, 
-            active_p, 
-            archive_p);
+            chat_room.new.pretty_name, 
+            chat_room.new.description, 
+            chat_room.new.moderated_p, 
+            chat_room.new.active_p, 
+            chat_room.new.archive_p,
+	    chat_room.new.auto_flush_p,
+	    chat_room.new.auto_transcript_p);
 
         return v_room_id;
     end new;
@@ -387,7 +403,9 @@
         description    in chat_rooms.description%TYPE,
         moderated_p    in chat_rooms.moderated_p%TYPE,
         active_p       in chat_rooms.active_p%TYPE,
-        archive_p      in chat_rooms.archive_p%TYPE
+        archive_p      in chat_rooms.archive_p%TYPE,
+	auto_flush_p   in chat_rooms.auto_flush_p%TYPE,
+	auto_transcript_p	in chat_rooms.auto_transcript_p%TYPE
     ) 
     is
     begin
@@ -396,7 +414,9 @@
             description = chat_room.edit.description,
             moderated_p = chat_room.edit.moderated_p,
             active_p    = chat_room.edit.active_p,
-            archive_p   = chat_room.edit.archive_p
+            archive_p   = chat_room.edit.archive_p,
+            auto_flush_p   = chat_room.edit.auto_flush_p,
+            auto_transcript_p = chat_room.edit.auto_transcript_p
         where 
             room_id = chat_room.edit.room_id;
     end edit;        
@@ -490,7 +510,6 @@
 /
 show errors
 
-
 create or replace package body chat_transcript
 as
     function new (
Index: openacs-4/packages/chat/sql/oracle/chat-drop.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/sql/oracle/chat-drop.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat/sql/oracle/chat-drop.sql	20 Apr 2001 20:51:08 -0000	1.1
+++ openacs-4/packages/chat/sql/oracle/chat-drop.sql	24 Jun 2006 14:23:41 -0000	1.2
@@ -54,6 +54,7 @@
     acs_privilege.remove_child('chat_room_admin', 'chat_moderator_revoke');
     acs_privilege.remove_child('chat_room_admin', 'chat_moderator');
 
+    acs_privilege.remove_child('admin', 'chat_room_admin');        
 
     acs_privilege.drop_privilege('chat_room_create');
     acs_privilege.drop_privilege('chat_room_view');
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/sql/oracle/upgrade/upgrade-5.0d4-5.0d5.sql'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/chat/sql/postgresql/chat-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/sql/postgresql/chat-create.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat/sql/postgresql/chat-create.sql	14 Mar 2006 12:16:09 -0000	1.1
+++ openacs-4/packages/chat/sql/postgresql/chat-create.sql	24 Jun 2006 14:23:41 -0000	1.2
@@ -201,13 +201,13 @@
                        check (active_p in ('t','f')),
     -- if set then log all chat messages in this room.
     archive_p          boolean
-                       default 'f'
+                        default 't'
                        constraint chat_rooms_archive_p_ck
-                       check (archive_p in ('t', 'f'))
-
-
-
-
+                        check (archive_p in ('t', 'f')),
+    -- flush the rooms messages every night at 00:05                    
+    auto_flush_p        boolean default 't',
+    -- automatically create a transcript after flushing the room
+    auto_transcript_p   boolean default 'f'
 );
 
 
@@ -334,16 +334,15 @@
                        references parties(party_id)
                        constraint chat_msgs_creation_user_nn not null,
     creation_ip        varchar(50) ,
-    creation_date      date
-                       constraint chat_msgs_creation_date_nn not null,
+    creation_date      timestamptz,
     room_id            integer
                        constraint chat_msgs_room_id_fk references chat_rooms
 );
 
 
 ---------------------------------
 
-create function chat_room__new (integer, varchar, varchar, boolean, boolean, boolean, integer, timestamptz, integer, varchar, varchar)
+create or replace function chat_room__new (integer, varchar, varchar, boolean, boolean, boolean, boolean, boolean, integer, timestamptz, integer, varchar, varchar)
 returns integer as '
 declare
    p_room_id        alias for $1;
@@ -352,11 +351,13 @@
    p_moderated_p    alias for $4;
    p_active_p       alias for $5;
    p_archive_p      alias for $6;
-   p_context_id     alias for $7;
-   p_creation_date  alias for $8;
-   p_creation_user  alias for $9;
-   p_creation_ip    alias for $10;
-   p_object_type    alias for $11;
+   p_auto_flush_p      alias for $7;
+   p_auto_transcript_p      alias for $8;
+   p_context_id     alias for $9;
+   p_creation_date  alias for $10;
+   p_creation_user  alias for $11;
+   p_creation_ip    alias for $12;
+   p_object_type    alias for $13;
    v_room_id        chat_rooms.room_id%TYPE;
 begin
    v_room_id := acs_object__new (
@@ -369,9 +370,9 @@
    );
 
    insert into chat_rooms
-       (room_id, pretty_name, description, moderated_p, active_p, archive_p)
+       (room_id, pretty_name, description, moderated_p, active_p, archive_p, auto_flush_p, auto_transcript_p)
    values
-       (v_room_id, p_pretty_name, p_description, p_moderated_p, p_active_p, p_archive_p);
+       (v_room_id, p_pretty_name, p_description, p_moderated_p, p_active_p, p_archive_p, p_auto_flush_p, p_auto_transcript_p);
 
 return v_room_id;
 
@@ -507,7 +508,8 @@
 end;' language 'plpgsql';
 ----------------------------
 
-create function chat_room__edit (integer, varchar, varchar, boolean, boolean, boolean)
+
+create or replace function chat_room__edit (integer, varchar, varchar, boolean, boolean, boolean, boolean, boolean)
 returns integer as '
 declare
    p_room_id        alias for $1;
@@ -516,14 +518,18 @@
    p_moderated_p    alias for $4;
    p_active_p       alias for $5;
    p_archive_p      alias for $6;
+   p_auto_flush_p      alias for $7;
+   p_auto_transcript_p      alias for $8;
 begin
 
         update chat_rooms set
             pretty_name = p_pretty_name,
             description = p_description,
             moderated_p = p_moderated_p,
             active_p    = p_active_p,
-            archive_p   = p_archive_p
+            archive_p   = p_archive_p,
+            auto_flush_p   = p_auto_flush_p,
+            auto_transcript_p   = p_auto_transcript_p
         where
             room_id = p_room_id;
         return 0;
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/sql/postgresql/upgrade/upgrade-5.0d4-5.0d5.sql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/tcl/chat-ajax-procs.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/chat/tcl/chat-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-init.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat/tcl/chat-init.tcl	20 Apr 2001 20:51:08 -0000	1.1
+++ openacs-4/packages/chat/tcl/chat-init.tcl	24 Jun 2006 14:23:41 -0000	1.2
@@ -11,71 +11,5 @@
 
 nsv_set chat server_started 0
 
+ad_schedule_proc -thread t -schedule_proc ns_schedule_daily [list 0 5] chat_flush_rooms
 
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
Index: openacs-4/packages/chat/tcl/chat-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/Attic/chat-procs-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat/tcl/chat-procs-oracle.xql	14 Mar 2006 12:16:09 -0000	1.1
+++ openacs-4/packages/chat/tcl/chat-procs-oracle.xql	24 Jun 2006 14:23:41 -0000	1.2
@@ -121,7 +121,9 @@
                 description   => :description,
 	        moderated_p   => :moderated_p,
 	        active_p      => :active_p,
-                archive_p     => :archive_p
+                archive_p     => :archive_p,
+		auto_flush_p  => :auto_flush_p,
+            	auto_transcript_p => :auto_transcript_p
 	    );
 	end;
      </querytext>
@@ -218,14 +220,10 @@
 	    chat_transcript.edit(
 	        transcript_id => :transcript_id,
 	        pretty_name   => :pretty_name,
-                contents      => :empty_clob(),
+		contents      => empty_clob(),
                 description   => :description);
 	    end;
       </querytext>
 </fullquery>
 
-
-
-
-
 </queryset>
\ No newline at end of file
Index: openacs-4/packages/chat/tcl/chat-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/Attic/chat-procs-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat/tcl/chat-procs-postgresql.xql	14 Mar 2006 12:16:09 -0000	1.1
+++ openacs-4/packages/chat/tcl/chat-procs-postgresql.xql	24 Jun 2006 14:23:41 -0000	1.2
@@ -10,6 +10,8 @@
              :moderated_p,
              :active_p,
              :archive_p,
+             :auto_flush_p,
+             :auto_transcript_p,
              :context_id,
              now(),
              :creation_user,
@@ -119,10 +121,12 @@
 	    perform chat_room__edit (
 	        :room_id,
 	        :pretty_name,
-                :description,
+	        :description,
 	        :moderated_p,
 	        :active_p,
-                :archive_p
+            :archive_p,
+            :auto_flush_p,
+            :auto_transcript_p
 	    );
             return 0;
 	end;
@@ -217,7 +221,5 @@
       </querytext>
 </fullquery>
 
-
-
 </queryset>
 
Index: openacs-4/packages/chat/tcl/chat-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/chat/tcl/chat-procs.tcl	14 Mar 2006 12:16:09 -0000	1.5
+++ openacs-4/packages/chat/tcl/chat-procs.tcl	24 Jun 2006 14:23:41 -0000	1.6
@@ -9,7 +9,7 @@
 
 ad_proc -private chat_start_server {} { Start Java chat server. } {
 
-    if [nsv_get chat server_started] {
+    if {[nsv_get chat server_started]} {
         return
     }
     ns_log notice "chat_start_server: Starting chat server"
@@ -62,7 +62,7 @@
     while { 1 } {
         # Wait until there is new message in queue.
         ns_mutex lock [nsv_get chat new_message]
-        if [nsv_exists chat html_message] {
+        if {[nsv_exists chat html_message]} {
             # Get message from queue.
             puts $w [nsv_get chat html_message]
             flush $w
@@ -98,15 +98,33 @@
                 regexp "<from>(.*)</from>" $line match screen_name
                 regexp "<body>(.*)</body>" $line match msg
                 regexp "<from_user_id>(.*)</from_user_id>" $line match user_id
-                if ![nsv_exists chat_room $room_id] {
+                if {![nsv_exists chat_room $room_id]} {
                     nsv_set chat_room $room_id {}                   
                 }
 
-
-                if [catch {chat_post_message_to_db -creation_user $user_id $room_id $msg} errmsg] {
-                    ns_log error "chat_post_message_to_db: error: $errmsg"
+                ns_log Notice "YY Nachricht: $msg"
+                ::chat::Chat c1 -volatile -chat_id $room_id -user_id $user_id -session_id 0
+                switch $msg {
+                    "/enter" {
+                        c1 login
+                        set msg [_ xotcl-core.has_entered_the_room]
+                    }
+                    "/leave" {
+                        c1 logout
+                        set msg [_ xotcl-core.has_left_the_room]
+                    }
+                    default {
+                c1 add_msg -uid $user_id $msg
+                    }
                 }
 
+				chat_room_get -room_id $room_id -array room_info
+				if { $room_info(archive_p) eq "t" } { 
+					if {[catch {chat_post_message_to_db -creation_user $user_id $room_id $msg} errmsg]} {
+						ns_log error "chat_post_message_to_db: error: $errmsg"
+					}
+				}
+
                 nsv_lappend chat_room $room_id $line
 
             } else {
@@ -124,7 +142,7 @@
 } {
     Log chat message to the database.
 } {
-    ns_log Notice $msg
+    # ns_log Notice $msg
     db_exec_plsql post_message {}
 
 }
@@ -133,6 +151,8 @@
     {-moderated_p f}
     {-active_p t}
     {-archive_p f}
+    {-auto_flush_p t}
+    {-auto_transcript_p f}
     {-context_id ""}
     {-creation_user ""}
     {-creation_ip ""}
@@ -158,6 +178,8 @@
     moderated_p
     active_p
     archive_p
+    auto_flush_p
+    auto_transcript_p
 } {
     Edit information on chat room. All information require.
 } {
@@ -259,6 +281,8 @@
 } {
     Explicit ban user from this chat room.
 } {
+    util_memoize_flush  \
+	"permission::permission_p_not_cached -party_id $party_id -object_id $room_id -privilege chat_ban"
     db_exec_plsql ban_user {}
 }
 
@@ -269,6 +293,8 @@
 } {
     unban user from this chat room.
 } {
+    util_memoize_flush  \
+	"permission::permission_p_not_cached -party_id $party_id -object_id $room_id -privilege chat_ban"
     db_exec_plsql ban_user {}
 }
 
@@ -308,9 +334,10 @@
 } {
     Return display name of this user to use in chat.
 } {
+	acs_user::get -user_id $user_id -array user
+	set name [expr {$user(screen_name) ne "" ? $user(screen_name) : $user(name)}]
+    return $name
 
-    return [db_exec_plsql get_chat_user_name {}]
-
 }
 
 ad_proc -public chat_message_post {
@@ -319,20 +346,32 @@
     message
     moderator_p
 } {
-    Post message to the chat room and broadcast to all applet clients. Only use by HTML client.
+    Post message to the chat room and broadcast to all applet clients. Used by ajax + html.
 } {
     if {$moderator_p == "1" } {
         set status "approved"
     } else {
         set status "pending"
     }
 
-    set chat_msg "<message><from>[chat_user_name $user_id]</from><from_user_id>$user_id</from_user_id><room_id>$room_id</room_id><body>$message</body><status>$status</status></message>"
-    # Add message to queue. Notify thread responsible for broadcast message to applets.
+	set default_client [parameter::get -parameter "DefaultClient" -default "ajax"]
 
-    nsv_set chat html_message $chat_msg
-    ns_mutex unlock [nsv_get chat new_message]
-
+	if {$default_client eq "java"} {
+		set chat_msg "<message><from>[chat_user_name $user_id]</from><from_user_id>$user_id</from_user_id><room_id>$room_id</room_id><body>$message</body><status>$status</status></message>"
+		# Add message to queue. Notify thread responsible for 
+		# broadcast message to applets.
+		nsv_set chat html_message $chat_msg
+		ns_mutex unlock [nsv_get chat new_message]  
+	}
+    
+        # do not write messages to the database if the room should not be archived
+        chat_room_get -room_id $room_id -array room_info
+        if { $room_info(archive_p) eq "f" } { return }
+        
+        # write message to the database
+        if {[catch {chat_post_message_to_db -creation_user $user_id $room_id $message} errmsg]} {
+            ns_log error "chat_post_message_to_db: error: $errmsg"
+        }
 }
 
 
@@ -362,13 +401,13 @@
 
     # The first time html client enter chat room, chat_room variable is not initialize correctly.
     # Therefore I just hard code the variable.
-    if ![nsv_exists chat_room $room_id] {
+    if {![nsv_exists chat_room $room_id]} {
         nsv_set chat_room $room_id [list "<message><from>[chat_user_name $user_id]</from><room_id>$room_id</room_id><body>[_ chat.has_entered_the_room]</body><status>approved</status></message>"]
     }
 
     set user_name [chat_user_name $user_id]
 
-    upvar "$msgs:rowcount" counter
+     upvar "$msgs:rowcount" counter
 
     set chat_messages [nsv_get chat_room $room_id]
 
@@ -378,14 +417,14 @@
     set counter 0
 
     #foreach msg $chat_messages 
-    for { set i [expr $cnt - 1] } { $i >= 0 } { set i [expr $i - 1] } {
+    for { set i [expr {$cnt - 1}] } { $i >= 0 } { set i [expr {$i - 1}] } {
         set msg [lindex $chat_messages $i]
         regexp "<from>(.*)</from>" $msg match screen_name
         regexp "<body>(.*)</body>" $msg match chat_msg
         regexp "<status>(.*)</status>" $msg match status
 
 
-        if {$status == "pending" || $status == "rejected"} {
+        if {$status eq "pending" || $status eq "rejected"} {
             continue;
         }
 
@@ -396,7 +435,7 @@
         incr counter
         set array_val(rownum) $counter
 
-        if {$screen_name == $user_name && $chat_msg == "has entered the room."} {
+        if {$screen_name == $user_name && $chat_msg eq "has entered the room."} {
             return
         }
     }
@@ -418,16 +457,10 @@
 
     db_transaction {
         set transcript_id [db_exec_plsql create_transcript {}]
-        db_exec_plsql grant_permission {}
-#
-#       db_dml transcript_content {
-#           update chat_transcripts
-#            set contents = empty_clob()
-#           where transcript_id = :transcript_id
-#            returning contents into :1
-#       } -clobs [list $contents]
-#    } on_error {
-#       ad_return_complaint 1 "Insert fail: $errmsg"
+	if { $transcript_id ne 0 } {
+	    db_dml update_contents {}
+	    db_exec_plsql grant_permission {}
+	}
     }
 
     return $transcript_id
@@ -450,26 +483,54 @@
 } {
     Edit chat transcript.
 } {
-    db_transaction {
-        db_exec_plsql edit_transcript {
+    db_exec_plsql edit_transcript {}
+    db_dml update_contents {}
+}
 
-        }
-        #db_dml transcript_content {
-        #    update chat_transcripts
-        #    set contents = empty_clob()
-        #   where transcript_id = :transcript_id
-        #    returning contents into :1
-        #} -clobs [list $contents]
-    }
-        
+ad_proc -public chat_room_get {
+    {-room_id {}}
+    {-array:required}
+} {
+    Get all the information about a chat room into an array
+} {
+    upvar $array row
+    array set row [util_memoize [list chat_room_get_not_cached $room_id]]
 }
 
+ad_proc -private chat_room_get_not_cached { 
+    room_id
+} {
+    db_1row select_user_info {select * from chat_rooms where room_id = :room_id} -column_array row
+    return [array get row]    
+}
 
+ad_proc -private chat_flush_rooms {} {Flush the messages in all of the chat rooms} {
+    # ns_log Notice "YY Starting chat_flush_rooms operation"
+    set room_ids [db_list get_rooms *SQL*] 
+    foreach room_id $room_ids {
+        chat_room_flush $room_id
+    }
+}   
 
+ad_proc -private chat_room_flush { room_id } {Flush the messages a single chat room} {
+    # ns_log Notice "YY flushing room $room_id"
+    db_transaction {
+        array set room_info [chat_room_get_not_cached $room_id]
+        set contents ""
+        # do we have to create a transcript for the room
+        if { $room_info(auto_transcript_p) eq "t" } {
+            # build a list of all messages
+            db_foreach get_archives_messages {} {
+                append contents "\[$creation_date\] <b>[chat_user_name $creation_user]</b>: $msg<br>\n"
+            }
+            if { $contents ne "" } {
+                chat_transcript_new \
+                    -description "#chat.automatically_created_transcript#" \
+                    "#chat.transcript_of_date# [clock format [clock seconds] -format "%d.%m.%Y"]" $contents $room_id
+            }
+        }
+        # clear all the messages in the room
+        chat_room_message_delete $room_id
+    }
+}
 
-
-
-
-
-
-
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/tcl/chat-procs.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/ajax-chat-script.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/ajax-chat-script.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/chat-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/chat-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/chat-transcript.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/chat-transcript.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/chat-transcripts.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/chat-transcripts.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/chat/www/chat.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/chat/www/chat.tcl	14 Mar 2006 12:16:09 -0000	1.5
+++ openacs-4/packages/chat/www/chat.tcl	24 Jun 2006 14:23:42 -0000	1.6
@@ -1,14 +1,14 @@
 #/chat/www/chat.tcl
 ad_page_contract {
 
-    Decide which template to use HTML or Java.
+    Decide which template to use HTML or AJAX.
 
     @author David Dao (ddao@arsdigita.com)
     @creation-date November 22, 2000
     @cvs-id $Id$
 } {
     room_id
-    client
+  {client "ajax"}
     {message:html ""}
 } -properties {
     context_bar:onevalue
@@ -29,18 +29,16 @@
     ad_return_complaint 1 "[_ chat.Room_not_found]"
 }
 
-set context_bar [list $room_name]
-
+set context_bar $room_name
+auth::require_login
 set user_id [ad_conn user_id]
-
-set read_p [ad_permission_p $room_id "chat_read"]
-set write_p [ad_permission_p $room_id "chat_write"]
-set ban_p [ad_permission_p $room_id "chat_ban"]
-
+set read_p [permission::permission_p -object_id $room_id -privilege "chat_read"]
+set write_p [permission::permission_p -object_id $room_id -privilege "chat_write"]
+set ban_p [permission::permission_p -object_id $room_id -privilege "chat_ban"]
 set moderate_room_p [chat_room_moderate_p $room_id]
 
-if { $moderate_room_p == "t" } {
-    set moderator_p [ad_permission_p $room_id "chat_moderator"]
+if { $moderate_room_p eq "t" } {
+    set moderator_p [permission::permission_p -object_id $room_id -privilege "chat_moderator"]
 } else {
     # This is an unmoderate room, therefore everyone is a moderator.
     set moderator_p "1"
@@ -54,42 +52,37 @@
 
 # Get chat screen name.
 set user_name [chat_user_name $user_id]
-# Determine which template to use for html or java client
-if {$client == "java"} {
-    set template_use "java-chat"
 
-    # Get config paramater for applet.
-    set width [ad_parameter AppletWidth "" 500]
-    set height [ad_parameter AppletHeight "" 400]   
-    
-    set host [ad_parameter ServerHost "" [ns_config "ns/server/[ns_info server]/module/nssock" Hostname]]
-    set port [ad_parameter ServerPort "" 8200]
-} else {
-    set template_use "html-chat"
+# send message to the database 
+if { $message ne "" } {
+    chat_message_post $room_id $user_id $message $moderator_p
+}
 
-    chat_message_retrieve msgs $room_id $user_id
-
-    if { ![empty_string_p $message] } {
-        chat_message_post $room_id $user_id $message $moderator_p
+# Determine which template to use for html or ajax client
+switch $client {
+    "html" {
+        set template_use "html-chat"
+        # forward to ajax if necessary
+        if { $message ne "" } {
+            set session_id [ad_conn session_id]
+            ::chat::Chat c1 -volatile -chat_id $room_id -session_id $session_id
+            c1 add_msg $message
+        }
     }
+    "ajax" {
+        set template_use "ajax-chat-script"
+    }
+	"java" {
+		set template_use "java-chat"
 
-
-
+		# Get config paramater for applet.
+		set width [ad_parameter AppletWidth "" 500]
+		set height [ad_parameter AppletHeight "" 400]   
+    
+		set host [ad_parameter ServerHost "" [ns_config "ns/server/[ns_info server]/module/nssock" Hostname]]
+		set port [ad_parameter ServerPort "" 8200]
+	}
 }
 
 ad_return_template $template_use
 
-
-
-
-
-
-
-
-
-
-
-
-
-
-
Index: openacs-4/packages/chat/www/html-chat.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/html-chat.adp,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/chat/www/html-chat.adp	14 Mar 2006 12:16:09 -0000	1.5
+++ openacs-4/packages/chat/www/html-chat.adp	24 Jun 2006 14:23:42 -0000	1.6
@@ -2,24 +2,39 @@
 <property name="context">@context_bar;noquote@</property>
 <property name="title">@room_name;noquote@</property>
 
-[<a href="room-exit?room_id=@room_id@">#chat.Log_off#</a>]
-<form method=post action="chat">
-#chat.Chat#: <input name=message size=40>
+<style type='text/css'>
+#messages { margin-right:15px; float:left; width:70%; height:250px; overflow:auto; border:1px solid black; padding:5px; font-size: 12px; color: #666666; font-family: Trebuchet MS, Lucida Grande, Lucida Sans Unicode, Arial, sans-serif; }
+#messages .timestamp {vertical-align: top; color: #CCCCCC; }
+#messages .user {margin: 0px 5px; text-align: right; vertical-align: top; font-weight:bold;}
+#messages .message {vertical-align: top;}
+#messages .line {margin:0px;}
+#users { float:right; width:25%; height:250px; border:1px solid black; padding:5px; font-size: 12px; color: #666666; font-family: Trebuchet MS, Lucida Grande, Lucida Sans Unicode, Arial, sans-serif; }
+#users .user {text-align: left; vertical-align: top; font-weight:bold; }
+#users .timestamp {text-align: right; vertical-align: top; }
+</style>
 
+<p>
+<a href="room-exit?room_id=@room_id@" class=button title="#chat.exit_msg#">#chat.Log_off#</a>
+<a href="chat-transcript?room_id=@room_id@" class=button title="#chat.transcription_msg#" >#chat.Transcript#</a>
+<a href="room-enter?room_id=@room_id@&client=@richclient.short@#xj220" class=button title="@richclient.msg@" >@richclient.title@</a>
+</p>
+
+<div id='messages'>
+@html_chat;noquote@
+<a id="xj220" name="#xj220"></a>
+</div>
+
+<div id='users'>
+    <table width="100%"><tbody>@html_users;noquote@</tbody></table>
+</div>
+
+<br clear="all"><br>
+
+<form method=post action="chat#xj220">
+#chat.message#: <input tabindex='1' type='text' size='80' name='message' id='chatMsg'>
 <input type=hidden name="room_id" value="@room_id@">
 <input type=hidden name="client" value="html">
 <input type=submit value="#chat.Send_Refresh#">
+<input type=submit value="#chat.Refresh#">
 </form>
 
-<ul>
-
-<if @message@ ne "">
-<if @moderator_p@ eq "1">
-@user_name@: @message@<br>
-</if>
-</if>
-<multiple name=msgs>
-@msgs.screen_name@: @msgs.chat_msg@<br>
-</multiple>
-
-</ul>
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/html-chat.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/chat/www/index-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/index-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat/www/index-postgresql.xql	14 Mar 2006 12:16:09 -0000	1.1
+++ openacs-4/packages/chat/www/index-postgresql.xql	24 Jun 2006 14:23:42 -0000	1.2
@@ -19,8 +19,10 @@
     from chat_rooms rm, 
          acs_objects obj
     where rm.room_id = obj.object_id
+    and   obj.context_id = :package_id
     order by rm.pretty_name
   </querytext>
 </fullquery>
 
 </queryset>
+
Index: openacs-4/packages/chat/www/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/index.adp,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/chat/www/index.adp	14 Mar 2006 12:16:09 -0000	1.5
+++ openacs-4/packages/chat/www/index.adp	24 Jun 2006 14:23:42 -0000	1.6
@@ -6,46 +6,20 @@
      @cvs-id $Id$
 -->
 <master>
-<property name="context">@context_bar;noquote@</property>
+<property name="context">#chat.Chat_main_page#</property>
 <property name="title">#chat.Chat_main_page#</property>
 
-
-
-<if @room_create_p@ ne 0>
-[<a href="room-new">#chat.Create_a_new_room#</a>]
+<if @warning@ not nil>
+<div style="border: 1px solid red; padding: 5px; margin: 10px;">
+    @warning;noquote@
+</div>
 </if>
 
 <if @rooms:rowcount@ eq 0>
-<p><i>#chat.There_are_no_rooms_available#</i>
+<p><i>#chat.There_are_no_rooms_available#</i></p>
+<if @room_create_p@ eq 1><p><a class="button" href="room-edit">#chat.Create_a_new_room#</a></p></if>
 </if>
 <else>
-<table>
-    <multiple name=rooms>
-    <%
-    set can_see 0
-    if {($rooms(active_p) eq "t" && $rooms(user_p) eq "t") || ($rooms(admin_p) eq "t")} {
-      set can_see 1
-    }   
-    %>
-    <if @can_see@ eq 1>
-      <tr>
-        <td valign=top>@rooms.pretty_name@</td>
-        <td valign=top>
-            [&nbsp;<a href="@rooms.base_url@room-enter?room_id=@rooms.room_id@&client=html">HTML</a>&nbsp;|&nbsp;<a href="@rooms.base_url@room-enter?room_id=@rooms.room_id@&client=java">java</a>&nbsp;]
-        </td>
-        <td valign=top>
-        <if @rooms.admin_p@ eq "t">
-          [<a href="@rooms.base_url@room?room_id=@rooms.room_id@">#chat.room_admin#</a>] 
-        </if>
-        <if @rooms.active_p@ ne "t">
-          (NO #chat.Active#)
-        </if>
-        <% set desc [string range $rooms(description) 0 50] %>
-        <td valign=top>
-            <I>@desc@</I>
-        </td>
-      </tr>            
-    </if>
-    </multiple>
-</table>
+<listtemplate name="rooms"></listtemplate>
 </else>
+
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.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
-    
-
-
-
-
-
-
-
Index: openacs-4/packages/chat/www/message-delete-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/message-delete-2.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/chat/www/message-delete-2.tcl	14 Mar 2006 12:16:09 -0000	1.3
+++ openacs-4/packages/chat/www/message-delete-2.tcl	24 Jun 2006 14:23:42 -0000	1.4
@@ -9,11 +9,12 @@
     room_id:integer,notnull
 }
 
-ad_require_permission $room_id chat_room_delete
+permission::require_permission -object_id $room_id -privilege chat_room_delete
 
-
 if { [catch {chat_room_message_delete $room_id} errmsg] } {
     ad_return_complaint 1 "[_ chat.Delete_messages_failed]: $errmsg"
 }
 
+::chat::Chat flush_messages -chat_id $room_id
+
 ad_returnredirect .
\ No newline at end of file
Index: openacs-4/packages/chat/www/message-delete.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/message-delete.adp,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/chat/www/message-delete.adp	14 Mar 2006 12:16:09 -0000	1.5
+++ openacs-4/packages/chat/www/message-delete.adp	24 Jun 2006 14:23:42 -0000	1.6
@@ -12,5 +12,5 @@
 <form method="post" action="message-delete-2">
 <input type=hidden name=room_id value=@room_id@>
 #chat.Are_you_sure_you_want_to_delete# @message_count@ #chat.messages_in# @pretty_name@?
-<p><input type=submit value=#chat.Yes#>
-</form>
\ No newline at end of file
+<p><input type=submit value=#acs-kernel.common_Yes#>
+</form>
Index: openacs-4/packages/chat/www/room-delete.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-delete.adp,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/chat/www/room-delete.adp	14 Mar 2006 12:16:09 -0000	1.5
+++ openacs-4/packages/chat/www/room-delete.adp	24 Jun 2006 14:23:42 -0000	1.6
@@ -12,7 +12,7 @@
 <form method="post" action="room-delete-2">	
 <input type=hidden name=room_id value=@room_id@>
 #chat.Are_you_sure_you_want_to_delete# @pretty_name@?
-<p><input type=submit value=#chat.Yes#>
+<p><input type=submit value=#acs-kernel.common_Yes#>
 </form>
 
 
Fisheye: Tag 1.5 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/room-edit-2.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/room-edit.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/chat/www/room-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-edit.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/chat/www/room-edit.tcl	14 Mar 2006 12:16:09 -0000	1.4
+++ openacs-4/packages/chat/www/room-edit.tcl	24 Jun 2006 14:23:42 -0000	1.5
@@ -2,46 +2,97 @@
 ad_page_contract {
     Display a form to edit room information.
 
-    @author David Dao (ddao@arsdigita.com)
-    @creation-date November 13, 2000
-    @cvs-id $Id$
+    @author Peter Alberer (peter@alberer.com)
+    @creation-date March 26, 2006
 } {
-    room_id:integer,notnull
-} -properties {
-    context_bar:onevalue
-    room_id:onevalue
-    title:onevalue
-    action:onevalue
-    submit_label:onevalue
-    pretty_name:onevalue
-    description:onevalue
-    moderated_p:onevalue
-    active_p:onevalue
-    room:onerow
-}
+    room_id:integer,optional
+} 
 
-ad_require_permission $room_id chat_room_edit
+permission::require_permission -object_id [ad_conn package_id] -privilege chat_room_edit
 
+if { ![info exists room_id] } {
+    set title "[_ chat.Create_a_new_room]"
+} else {
+    set title "[_ chat.Edit_room] \"[chat_room_name $room_id]\""
+}
 
-if {[catch {db_1row room_info {
-    select pretty_name, description, moderated_p, archive_p, active_p
-    from chat_rooms
-    where room_id = :room_id}} errmsg]} {
-
-    ad_return_complaint 1 "[_ chat.Room_not_found]."
+ad_form -name "edit-room" -edit_buttons [list [list [_ chat.Update_room] next]] -has_edit 1 -form {
+    {room_id:key}    
+    {moderated_p:boolean(hidden)
+        {value "f"}
+    }    
+    {pretty_name:text(text)
+        {label "#chat.Room_name#" }
+    }
+    {description:text(textarea),optional
+        {label "#chat.Description#" }
+        {html {rows 6 cols 65}}
+    }
+    {active_p:boolean(radio)
+        {label "#chat.Active#" }
+        {options {{"#acs-kernel.common_Yes#" t} {"#acs-kernel.common_no#" f}}}
+        {value "t"}
+    }
+    {archive_p:boolean(radio)
+        {label "#chat.Archive#" }
+        {options {{"#acs-kernel.common_Yes#" t} {"#acs-kernel.common_no#" f}}}
+        {value "t"}
+    }    
+    {auto_flush_p:boolean(radio)
+        {label "#chat.AutoFlush#" }
+        {options {{"#acs-kernel.common_Yes#" t} {"#acs-kernel.common_no#" f}}}
+        {value "t"}
+        {help_text "[_ chat.AutoFlushHelp]"}
+    }  
+    {auto_transcript_p:boolean(radio)
+        {label "#chat.AutoTranscript#" }
+        {options {{"#acs-kernel.common_Yes#" t} {"#acs-kernel.common_no#" f}}}
+        {value "f"}
+        {help_text "[_ chat.AutoTranscriptHelp]"}
+    }      
+} -new_data {
+    if {[catch {set room_id [chat_room_new -moderated_p $moderated_p \
+                              -description $description \
+                              -active_p $active_p \
+                              -archive_p $archive_p \
+                              -auto_flush_p $auto_flush_p \
+                              -auto_transcript_p $auto_transcript_p \
+                              -context_id [ad_conn package_id] \
+                              -creation_user [ad_conn user_id] \
+                              -creation_ip [ad_conn peeraddr] $pretty_name]} errmsg]} {
+        ad_return_complaint 1 "[_ chat.Create_new_room_failed]: $errmsg"
+        break
+    }
+    set comm_id ""
+    if {[info command dotlrn_community::get_community_id] ne ""} {
+      set comm_id [dotlrn_community::get_community_id] 
+    }
+    if {$comm_id ne ""} {
+      chat_user_grant $room_id $comm_id
+    } else {
+      #-2 Registered Users
+      #chat_user_grant $room_id -2 
+      #0 Unregistered Visitor
+      #chat_user_grant $room_id 0
+      #-1 The Public
+      chat_user_grant $room_id -2
+    }
+} -edit_request {
+    if {[catch {db_1row room_info {
+        select pretty_name, description, moderated_p, archive_p, active_p, auto_flush_p, auto_transcript_p
+        from chat_rooms
+        where room_id = :room_id}} errmsg]} {
+        ad_return_complaint 1 "[_ chat.Room_not_found]."
+        break
+    }
+} -edit_data {
+    if {[catch {chat_room_edit $room_id $pretty_name $description $moderated_p $active_p $archive_p $auto_flush_p $auto_transcript_p} errmsg]} {
+        ad_return_complaint 1 "[_ chat.Could_not_update_room]: $errmsg"
+        break
+    }
+    util_memoize_flush [list chat_room_get_not_cached $room_id]
+} -after_submit {
+    ad_returnredirect "room?room_id=$room_id"
+    ad_script_abort    
 }
 
-ns_log notice "send: moderated_p:$moderated_p archive_p:$archive_p  active_p:$active_p"
-
-set context_bar [list "Edit room '$pretty_name'"]
-set title "Edit room '$pretty_name'"
-set action "room-edit-2"
-set submit_label "[_ chat.Update_room]"
-
-ad_return_template "room-entry"
-
-
-
-
-
-
Index: openacs-4/packages/chat/www/room-enter.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/room-enter.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/chat/www/room-enter.tcl	14 Mar 2006 12:16:09 -0000	1.3
+++ openacs-4/packages/chat/www/room-enter.tcl	24 Jun 2006 14:23:42 -0000	1.4
@@ -10,24 +10,32 @@
     room_id:integer,notnull
     client:trim
 } 
-chat_start_server
+
 set user_id [ad_conn user_id]
 
-set read_p  [ad_permission_p $room_id "chat_read"]
-set write_p [ad_permission_p $room_id "chat_write"]
-set ban_p   [ad_permission_p $room_id "chat_ban"]
+set read_p  [permission::permission_p -object_id $room_id -privilege "chat_read"]
+set write_p [permission::permission_p -object_id $room_id -privilege "chat_write"]
+set ban_p   [permission::permission_p -object_id $room_id -privilege "chat_ban"]
+ns_log notice "--query ban $ban_p: permission::permission_p -object_id $room_id -privilege chat_ban -party_id [ad_conn user_id]"
 set active  [room_active_status $room_id]
 
-
-if { ($read_p == "0" && $write_p == "0") || ($ban_p == "1") || ($active == "f") } {
+if { ($read_p == "0" && $write_p == "0") || ($ban_p == "1") || ($active eq "f") } {
     #Display unauthorize privilege page.
     ad_returnredirect unauthorized
     ad_script_abort
 }
-if {$client == "html"} {
 
+set default_client [parameter::get -parameter "DefaultClient" -default "ajax"]
 
-    chat_message_post $room_id $user_id "[_ chat.has_entered_the_room]." "1"
+if {$default_client eq "java"} {
+	chat_start_server
 }
 
+switch $client {
+    "html" - "ajax" - "html-chat-script" {
+        ns_log Notice "YY room-enter: has_entered_the room"
+        chat_message_post $room_id $user_id "[_ chat.has_entered_the_room]." "1"
+    }
+}
+
 ad_returnredirect "chat?room_id=$room_id&client=$client"
Fisheye: Tag 1.6 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/room-entry.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/chat/www/room-exit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-exit.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/chat/www/room-exit.tcl	14 Mar 2006 12:16:09 -0000	1.3
+++ openacs-4/packages/chat/www/room-exit.tcl	24 Jun 2006 14:23:42 -0000	1.4
@@ -10,12 +10,10 @@
 }
 
 set user_id [ad_conn user_id]
+set read_p [permission::permission_p -object_id $room_id -privilege "chat_read"]
+set write_p [permission::permission_p -object_id $room_id -privilege "chat_write"]
+set ban_p [permission::permission_p -object_id $room_id -privilege "chat_ban"]
 
-
-set read_p [ad_permission_p $room_id "chat_read"]
-set write_p [ad_permission_p $room_id "chat_write"]
-set ban_p [ad_permission_p $room_id "chat_ban"]
-
 if { ($read_p == "0" && $write_p == "0") || ($ban_p == "1") } {
     #Display unauthorize privilege page.
     ad_returnredirect unauthorized
@@ -24,5 +22,10 @@
 
 chat_message_post $room_id $user_id "[_ chat.has_left_the_room]." "1"
 
-#ad_returnredirect index
-ad_returnredirect [dotlrn::get_url]
+# send to AJAX
+set session_id [ad_conn session_id]
+::chat::Chat c1 -volatile -chat_id $room_id -session_id $session_id
+c1 logout
+
+ad_returnredirect index
+#ad_returnredirect [dotlrn::get_url]
Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/room-new-2.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/room-new.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/chat/www/room-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat/www/room-oracle.xql	14 Mar 2006 12:16:09 -0000	1.1
+++ openacs-4/packages/chat/www/room-oracle.xql	24 Jun 2006 14:23:42 -0000	1.2
@@ -24,22 +24,14 @@
 
 <fullquery name="list_user_ban">
   <querytext>
-   select party_id, acs_object.name(party_id) as name
-    from acs_object_party_privilege_map
-    where object_id = :room_id
-    and privilege = 'chat_ban'
+   select m.party_id, p.last_name || ', ' || p.first_names as name, pa.email
+    from acs_object_party_privilege_map m, persons p, parties pa
+    where m.party_id = p.person_id and m.object_id = :room_id
+    and m.privilege = 'chat_ban' and p.person_id = pa.party_id
+    order by p.last_name, p.first_names
   </querytext>
 </fullquery>
 
-
-<fullquery name="list_transcripts">
-  <querytext>
-   select transcript_id, pretty_name
-    from chat_transcripts
-    where room_id = :room_id
- </querytext>
-</fullquery>
-
 </queryset>
 
 
Index: openacs-4/packages/chat/www/room-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat/www/room-postgresql.xql	14 Mar 2006 12:16:09 -0000	1.1
+++ openacs-4/packages/chat/www/room-postgresql.xql	24 Jun 2006 14:23:42 -0000	1.2
@@ -20,25 +20,16 @@
  </querytext>
 </fullquery>
 
-
 <fullquery name="list_user_ban">
   <querytext>
-   select party_id, acs_object__name(party_id) as name
-    from acs_object_party_privilege_map
-    where object_id = :room_id
-    and privilege = 'chat_ban'
+   select m.party_id, p.last_name || ', ' || p.first_names as name, pa.email
+    from acs_object_party_privilege_map m, persons p, parties pa
+    where m.party_id = p.person_id and m.object_id = :room_id
+    and m.privilege = 'chat_ban' and p.person_id = pa.party_id
+    order by p.last_name, p.first_names
   </querytext>
 </fullquery>
 
-
-<fullquery name="list_transcripts">
-  <querytext>
-   select transcript_id, pretty_name
-    from chat_transcripts
-    where room_id = :room_id
- </querytext>
-</fullquery>
-
 </queryset>
 
 
Index: openacs-4/packages/chat/www/room.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room.adp,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/chat/www/room.adp	14 Mar 2006 12:16:09 -0000	1.5
+++ openacs-4/packages/chat/www/room.adp	24 Jun 2006 14:23:42 -0000	1.6
@@ -11,82 +11,59 @@
 
 <h4>#chat.Room_Information#</h4>
 <if @room_view_p@ eq "1">
-<ul>
-<li>#chat.Room_name#: @pretty_name@
-<li>#chat.Description#: <blockquote>@description@</blockquote>
-<!-- <li>#chat.Moderated#: @moderated_p@ -->
-<li>#chat.Active#:  @active_p@
-<li>#chat.Archive#: @archive_p@
+<table border="0" cellpadding="2" cellspacing="2">
+    <tr class="form-element">
+        <td class="form-label">#chat.Room_name#</td>
+        <td>@pretty_name@</td>
+    </tr>
+    <tr class="form-element">
+        <td class="form-label">#chat.Description#</td>
+        <td>@description@</td>
+    </tr>
+    <tr class="form-element">
+        <td class="form-label">#chat.Active#</td>
+        <td>@active_p@</td>
+    </tr>
+    <tr class="form-element">
+        <td class="form-label">#chat.Archive#</td>
+        <td>@archive_p@</td>
+    </tr>   
+    <tr class="form-element">
+        <td class="form-label">#chat.AutoFlush#</td>
+        <td>@auto_flush_p@</td>
+    </tr>  
+    <tr class="form-element">
+        <td class="form-label">#chat.AutoTranscript#</td>
+        <td>@auto_transcript_p@</td>
+    </tr>      
+    <tr class="form-element">
+        <td class="form-label">#chat.message_count#</td>
+        <td>@message_count@</td>
+    </tr>
+</table>
 <if @room_edit_p@ eq "1">
-<p>(<a href="room-edit?room_id=@room_id@">#chat.Edit#</a>)
+<p>
+<a class="button" href="room-edit?room_id=@room_id@">#chat.Edit#</a>
+<a class="button" href="/permissions/one?object_id=@room_id@">#acs-kernel.common_Permissions#</a>
 </if>
-</ul>
+<if @room_delete_p@ eq "1">
+<a class="button" href="message-delete?room_id=@room_id@">#chat.Delete_all_messages_in_the_room#</a>
+<a class="button" href="room-delete?room_id=@room_id@">#chat.Delete_room#</a>
 </if>
+</if>
 <else>
 <p><i>#chat.No_information_available#.
 </else>
 
-<p><b>#chat.Users_allow#</b>
-<ul>
-<multiple name=users_allow>
-   <li>@users_allow.name@
-   <if @user_revoke_p@ eq "1">(<a href="user-revoke?room_id=@room_id@&party_id=@users_allow.party_id@">#chat.revoke#</a>)</if>
-</multiple>
-   <if @user_grant_p@ eq "1">
-
-<!-- <p>(<a href="user-grant?room_id=@room_id@">#chat.Grant_user#</a>) -->
-   <p>(<a href="search?room_id=@room_id@&type=user">#chat.Grant_user#</a>)
-   </if>
-</ul>
-<b>#chat.Users_ban#</b>
-<ul>
-<multiple name=users_ban>
-   <li>@users_ban.name@</li>
-   <if @user_unban_p@ eq "1">(<a href="user-unban?room_id=@room_id@&party_id=@users_ban.party_id@">#chat.unban#</a>)</if>
-</multiple>
-   <if @user_ban_p@ eq "1">
-<!-- <p>(<a href="user-ban?room_id=@room_id@">#chat.Ban_user#</a>) -->
-      <p>(<a href="search?room_id=@room_id@&type=ban">#chat.Ban_user#</a>)      
-   </if>
-</ul>
-
-
-<!-- 
-<b>#chat.Room_moderators#</b>
-<ul>
-<multiple name=moderators>
-   <li>@moderators.name@
-   <if @moderator_revoke_p@ eq "1">
-       (<a href="moderator-revoke?party_id=@moderators.party_id@&room_id=@room_id@">#chat.remove#</a>)
-   </if>
-</multiple>
-
-<if @moderator_grant_p@ eq "1">
-   <p>(<a href="moderator-grant?room_id=@room_id@">#chat.Add_moderator#</a>)
+<p><b>#chat.Users_ban#</b></p>
+<listtemplate name="banned_users"></listtemplate>
+<if @user_ban_p@ eq "1">
+<p><a class="button" href="search?room_id=@room_id@&type=ban">#chat.Ban_user#</a>      
 </if>
-</ul>
--->
-
-
+   
 <p><b>#chat.Transcripts#</b>
-<ul>
-<multiple name=chat_transcripts>
-<li>@chat_transcripts.pretty_name@ 
-(<a href="transcript-view?transcript_id=@chat_transcripts.transcript_id@">#chat.View#</a>)
-<if @transcript_delete_p@ eq "1">
- (<a href="transcript-delete?transcript_id=@chat_transcripts.transcript_id@&room_id=@room_id@">#chat.remove#</a>)
-</if>
-</multiple>
+<include src="/packages/chat/lib/transcripts" room_id=@room_id@>
 <if @transcript_create_p@ eq "1">
-<p>(<a href="transcript-new?room_id=@room_id@">#chat.Create_transcript#</a>)
+<p><a class="button" href="transcript-new?room_id=@room_id@">#chat.Create_transcript#</a>
 </if>
 
-</ul>
-<if @room_delete_p@ eq "1">
-<p><b>#chat.Extreme_Actions#</b>
-<ul>
-<li><a href="message-delete?room_id=@room_id@">#chat.Delete_all_messages_in_the_room#</a>
-<li><a href="room-delete?room_id=@room_id@">#chat.Delete_room#</a>
-</ul>
-</if>
-
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
 
-
-
-
-
-
-
-
-
-
Index: openacs-4/packages/chat/www/search-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/search-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat/www/search-2.tcl	14 Mar 2006 12:16:09 -0000	1.1
+++ openacs-4/packages/chat/www/search-2.tcl	24 Jun 2006 14:23:42 -0000	1.2
@@ -23,31 +23,31 @@
 # Check input.
 set exception_count 0
 set exception_text ""
-set SQL_LIMIT 10
+set SQL_LIMIT 20
 
 set context [list [list "./" "Users"] "Search"]
 
-if [info exists keyword] {
+if {[info exists keyword]} {
     # this is an administrator 
-    if { [empty_string_p $keyword] } {
+    if { $keyword eq "" } {
         incr exception_count
         append exception_text "<li>You forgot to type a search string!\n"
     }
 } else {
     # from one of the user pages
-    if { (![info exists email] || [empty_string_p $email]) && \
-            (![info exists last_name] || [empty_string_p $last_name]) } {
+    if { (![info exists email] || $email eq "") && \
+            (![info exists last_name] || $last_name eq "") } {
         incr exception_count
         append exception_text "<li>You must specify either an email address or last name to search for.\n"
     }
 
     if { [info exists email] && [info exists last_name] && \
-            ![empty_string_p $email] && ![empty_string_p $last_name] } {
+            $email ne "" && $last_name ne "" } {
         incr exception_count
         append exception_text "<li>You can only specify either email or last name, not both.\n"
     }
 
-    if { ![info exists target] || [empty_string_p $target] } {
+    if { ![info exists target] || $target eq "" } {
         incr exception_count
         append exception_text "<li>Target was not specified. This shouldn't have happened,
 please contact the <a href=\"mailto:[ad_host_administrator]\">administrator</a>
@@ -68,7 +68,7 @@
     set search_type "keyword"
     set sql_keyword "%[string tolower $keyword]%"
     lappend where_clause "(username like :sql_keyword or email like :sql_keyword or lower(first_names || ' ' || last_name) like :sql_keyword)"
-} elseif { [info exists email] && ![empty_string_p $email] } {
+} elseif { [info exists email] && $email ne "" } {
     set search_type "email"    
     set sql_email "%[string tolower $email]%"
     lappend where_clause "email like :sql_email"
@@ -97,7 +97,8 @@
 } else {
 set query "select username, user_id, email_verified_p, first_names, last_name, email, member_state
 from cc_users
-where [join $where_clause "\nand "]"
+where [join $where_clause "\nand "]
+limit $SQL_LIMIT"
 }
 
 set i 0
@@ -123,7 +124,7 @@
     set user_search:[set rowcount](member_state) $member_state
 
     
-    if { $member_state != "approved" } {
+    if { $member_state ne "approved" } {
         set user_search:[set rowcount](user_finite_state_links) [join [ad_registration_finite_state_machine_admin_links $member_state $email_verified_p $user_id_from_search "search?[export_url_vars email last_name keyword target passthrough limit_users_in_group_id only_authorized_p]"] " | "]
     } else {
         set user_search:[set rowcount](user_finite_state_links) ""
Index: openacs-4/packages/chat/www/search-3.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/search-3.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat/www/search-3.tcl	14 Mar 2006 12:16:09 -0000	1.1
+++ openacs-4/packages/chat/www/search-3.tcl	24 Jun 2006 14:23:42 -0000	1.2
@@ -6,7 +6,7 @@
     party_id:integer,notnull
 }
 
-if {[string equal $type "user"] == 1} {
+if {$type eq "user"} {
   ad_require_permission $room_id chat_user_grant
   chat_user_grant $room_id $party_id
 } else {
Index: openacs-4/packages/chat/www/search.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/search.adp,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat/www/search.adp	14 Mar 2006 12:16:09 -0000	1.1
+++ openacs-4/packages/chat/www/search.adp	24 Jun 2006 14:23:42 -0000	1.2
@@ -7,6 +7,6 @@
   <input type="hidden" name="target" value="one" />
   <input type="hidden" name="type" value="@type@" />
   <input type="text" size="15" name="keyword" />
-  <input type="submit" value="#dotlrn.User_Search#" />
+  <input type="submit" value="#acs-subsite.Search_For_Exist_User#" />
 </FORM>
 
Index: openacs-4/packages/chat/www/transcript-delete.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-delete.adp,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/chat/www/transcript-delete.adp	14 Mar 2006 12:16:09 -0000	1.5
+++ openacs-4/packages/chat/www/transcript-delete.adp	24 Jun 2006 14:23:42 -0000	1.6
@@ -10,8 +10,8 @@
 <property name="title">#chat.Confirm_chat_transcript_delete#</property>
 
 <form method="post" action="transcript-delete-2">
-<input type=hidden name=transcript_id value=@transcript_id@>
-<input type=hidden name=room_id value=@room_id@>
+<input type="hidden" name="transcript_id" value="@transcript_id@">
+<input type="hidden" name="room_id" value="@room_id@">
 #chat.Are_you_sure_you_want_to_delete# <b>Replace with transcript name</b>?
-<p><input type=submit value=#chat.Yes#>
-</form>
\ No newline at end of file
+<p><input type="submit" value="#acs-kernel.common_Yes#">
+</form>
Index: openacs-4/packages/chat/www/transcript-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-delete.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/chat/www/transcript-delete.tcl	14 Mar 2006 12:16:09 -0000	1.3
+++ openacs-4/packages/chat/www/transcript-delete.tcl	24 Jun 2006 14:23:42 -0000	1.4
@@ -14,7 +14,7 @@
     transcript_id:onevalue
 }
 
-ad_require_permission $transcript_id chat_transcript_delete
+permission::require_permission -object_id $transcript_id -privilege chat_transcript_delete
 
 set context_bar [list "[_ chat.Delete_transcript]"]
 ad_return_template
Index: openacs-4/packages/chat/www/transcript-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/transcript-edit-2.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/chat/www/transcript-edit-2.tcl	14 Mar 2006 12:16:09 -0000	1.3
+++ openacs-4/packages/chat/www/transcript-edit-2.tcl	24 Jun 2006 14:23:42 -0000	1.4
@@ -13,9 +13,8 @@
     {description:trim ""}
 }
 
-ad_require_permission $transcript_id chat_transcript_edit
+permission::require_permission -object_id $transcript_id -privilege chat_transcript_edit
 
-
 if { [catch {chat_transcript_edit $transcript_id $transcript_name $description $contents} errmsg] } {
     ad_return_complaint 1 "[_ chat.Could_not_update_transcript]: $errmsg"
 }
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/transcript-edit.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/chat/www/transcript-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-edit.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/chat/www/transcript-edit.tcl	14 Mar 2006 12:16:09 -0000	1.3
+++ openacs-4/packages/chat/www/transcript-edit.tcl	24 Jun 2006 14:23:42 -0000	1.4
@@ -8,32 +8,44 @@
 } {
     transcript_id:integer,notnull
     room_id:integer,notnull
-} -properties {
-    context_bar:onevalue
-    title:onevalue
-    room_id:onevalue
-    transcript_id:onevalue
-    transcript_name:onevalue
-    description:onevalue
-    contents:onevalue
-    action:onevalue
-    submit_label:onevalue
-}
+} 
 
-ad_require_permission $transcript_id chat_transcript_edit
+permission::require_permission -object_id $transcript_id -privilege chat_transcript_edit
 set context_bar [list "[_ chat.Edit_transcript]"]
 
-set title "[_ chat.Edit_transcript]"
-set action "transcript-edit-2"
 set submit_label "[_ chat.Edit]"
+set active_p [room_active_status $room_id]
 
 db_1row get_transcript_info {
-    select pretty_name as transcript_name,
-           description,
-           contents
+    select pretty_name, description, contents
     from chat_transcripts
     where transcript_id = :transcript_id
 }
 
-ad_return_template "transcript-entry"
-
+ad_form -name "edit-transcription" -edit_buttons [list [list [_ chat.Edit] next]] -has_edit 1 -form {
+    {room_id:integer(hidden)
+        {value $room_id}
+    }    
+    {transcript_id:integer(hidden)
+        {value $transcript_id}
+    }    
+    {pretty_name:text(text)
+        {label "#chat.Transcript_name#" }
+        {value $pretty_name}
+    }
+    {description:text(textarea),optional
+        {label "#chat.Description#" }
+        {html {rows 6 cols 65}}
+        {value $description}
+    }
+    {contents:text(textarea)
+        {label "#chat.Transcript#" }
+        {html {rows 6 cols 65}}
+        {value $contents}
+    }
+} -on_submit {
+    if { [catch {chat_transcript_edit $transcript_id $pretty_name $description $contents} errmsg] } {
+        ad_return_complaint 1 "[_ chat.Could_not_update_transcript]: $errmsg"
+    }
+    ad_returnredirect "chat-transcript?transcript_id=$transcript_id&room_id=$room_id"    
+}
Index: openacs-4/packages/chat/www/transcript-entry.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/transcript-entry.adp,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/chat/www/transcript-entry.adp	14 Mar 2006 12:16:09 -0000	1.5
+++ openacs-4/packages/chat/www/transcript-entry.adp	24 Jun 2006 14:23:42 -0000	1.6
@@ -12,22 +12,42 @@
 <form action="@action@" method="post">
     <input type="hidden" name="transcript_id" value="@transcript_id@">
     <input type="hidden" name="room_id" value="@room_id@">
-    <table>
-       <tr>
-          <th align="right">#chat.Transcript_name#:</th>
-          <td><input size=50 name="transcript_name" value="@transcript_name@">
+    <input type="hidden" name="contents" value="@contents@">
+    <table border="0" cellpadding="2" cellspacing="2">
+       <tr class="form-element">
+          <td class="form-label">#chat.Transcript_name#</th>
+          <td><input size="50" name="transcript_name" value="@transcript_name@"></td>
        </tr>
-       <tr>
-          <th align="right">#chat.Description# :</th>
+       <tr class="form-element">
+          <td class="form-label">#chat.Delete_messages#</td>
+          <td><input type="checkbox" name="delete_messages">
+          <div class="form-help-text">
+            <img src="/shared/images/info.gif" alt="[i]" title="Help text" border="0" height="9" width="12">
+            #chat.delete_messages_after_transcript#
+          </div>
+          </td>
+       </tr>
+       <if @active_p@ eq "t">
+       <tr class="form-element">
+          <td class="form-label">#chat.Room_deactivate#</td>
+          <td><input type="checkbox" name="deactivate_room">
+          <div class="form-help-text">
+            <img src="/shared/images/info.gif" alt="[i]" title="Help text" border="0" height="9" width="12">
+            #chat.deactivate_room_after_transcript#
+          </div>
+          </td>
+       </tr>       
+       </if>
+       <tr class="form-element">
+          <td class="form-label">#chat.Description#</th>
           <td><textarea name="description" rows=6 cols=65>@description@</textarea>
        </tr>
-       <tr>
-          <th align="right">#chat.Contents#:</th>
-    	  <td><textarea name="contents" rows=20 cols=70>@contents@</textarea>
+       <tr class="form-element">
+          <td class="form-label">#chat.Contents#</th>
+    	  <td><div style="border: 1px solid #A4B97F; padding:3px; color: #666666;">@contents;noquote@</div>
        </tr>
-       <tr>
-          <th></th>
-          <td><input type=submit value="@submit_label@">
+       <tr class="form-element">
+          <td><input type="submit" value="@submit_label@">
     </table>
     
 </form>
Index: openacs-4/packages/chat/www/transcript-new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/transcript-new-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat/www/transcript-new-2.tcl	20 Apr 2001 20:51:08 -0000	1.1
+++ openacs-4/packages/chat/www/transcript-new-2.tcl	24 Jun 2006 14:23:42 -0000	1.2
@@ -5,27 +5,34 @@
     room_id:integer,notnull
     transcript_name:trim,notnull
     {description:trim ""}
+    {delete_messages:optional "off"}
+    {deactivate_room:optional "off"}
     contents:trim,notnull,html
 } 
 
-ad_require_permission $room_id chat_transcript_create
+permission::require_permission -object_id $room_id -privilege chat_transcript_create
 
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 set creation_ip [ad_conn peeraddr]
 
+set transcript_id [chat_transcript_new \
+    -description $description \
+    -context_id $package_id \
+    -creation_user $user_id \
+    -creation_ip $creation_ip \
+    $transcript_name $contents $room_id
+]
 
-set transcript_id [chat_transcript_new -description $description \
-                                                   -context_id $package_id \
-                                                   -creation_user $user_id \
-                                                   -creation_ip $creation_ip \
-						    $transcript_name $contents $room_id]
+if { $delete_messages eq "on" } {
+    chat_room_message_delete $room_id
+    # forward the information to AJAX
+    ::chat::Chat flush_messages -chat_id $room_id
+}
 
+if { $deactivate_room eq "on" } {
+    db_dml "update_chat" "update chat_rooms set active_p = 'f' where room_id = $room_id"
+}
 
-ad_returnredirect "transcript-view?room_id=$room_id&transcript_id=$transcript_id"
+ad_returnredirect "chat-transcript?room_id=$room_id&transcript_id=$transcript_id"
 
-
-
-
-
-
Index: openacs-4/packages/chat/www/transcript-new-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-new-oracle.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat/www/transcript-new-oracle.xql	14 Mar 2006 12:16:09 -0000	1.1
+++ openacs-4/packages/chat/www/transcript-new-oracle.xql	24 Jun 2006 14:23:42 -0000	1.2
@@ -5,13 +5,12 @@
 
 <fullquery name="get_archives_messages">
   <querytext>
-    select msg, person.name(creation_user) as name
+    select msg, creation_user, to_char(creation_date, 'DD.MM.YYYY hh24:mi:ss') as creation_date
     from chat_msgs
     where room_id = :room_id
           and msg is not null
-    order by msg_id
+    order by creation_date
   </querytext>
 </fullquery>
 
-
 </queryset>
Index: openacs-4/packages/chat/www/transcript-new-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-new-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat/www/transcript-new-postgresql.xql	14 Mar 2006 12:16:09 -0000	1.1
+++ openacs-4/packages/chat/www/transcript-new-postgresql.xql	24 Jun 2006 14:23:42 -0000	1.2
@@ -4,11 +4,11 @@
 
 <fullquery name="get_archives_messages">
   <querytext>
-    select msg, person__name(creation_user) as name
+    select msg, creation_user, to_char(creation_date, 'DD.MM.YYYY hh24:mi:ss') as creation_date
     from chat_msgs
     where room_id = :room_id
           and msg is not null
-    order by msg_id
+    order by creation_date
   </querytext>
 </fullquery>
 
Index: openacs-4/packages/chat/www/transcript-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-new.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/chat/www/transcript-new.tcl	14 Mar 2006 12:16:09 -0000	1.3
+++ openacs-4/packages/chat/www/transcript-new.tcl	24 Jun 2006 14:23:42 -0000	1.4
@@ -14,29 +14,23 @@
     contents:onevalue
 }
 
-ad_require_permission $room_id chat_transcript_create
+permission::require_permission -object_id $room_id -privilege chat_transcript_create
 
 set context_bar [list [list "room?room_id=$room_id" "[_ chat.Room_Information]"] "[_ chat.Create_transcript]"]
 
 set transcript_id ""
-set transcript_name "[_ chat.Untitled]"
+set transcript_name "[_ chat.transcript_of_date] [clock format [clock seconds] -format "%d.%m.%y %H:%M:%S"]"
 set description ""
 set contents ""
 set action "transcript-new-2"
 set title "[_ chat.Create_transcript]"
 set submit_label "[_ chat.Create_transcript]"
+set active_p [room_active_status $room_id]
 
 #Build a list of all message.
 db_foreach get_archives_messages {} {
-    append contents "<b>$name</b>: $msg<br>\n"
+    append contents "\[$creation_date\] <b>[chat_user_name $creation_user]</b>: $msg<br>\n"
 }
 
 ad_return_template "transcript-entry"
 
-
-
-
-
-
-
-
Index: openacs-4/packages/chat/www/transcript-view.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/transcript-view.adp,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/chat/www/transcript-view.adp	14 Mar 2006 12:16:09 -0000	1.5
+++ openacs-4/packages/chat/www/transcript-view.adp	24 Jun 2006 14:23:42 -0000	1.6
@@ -11,9 +11,13 @@
 
 [<a href="transcript-edit?transcript_id=@transcript_id@&room_id=@room_id@">#chat.Edit#</a>]
 <ul>
-<li>#chat.Name#: <b>@transcript_name@</b></li>
-<li>#chat.Description#: <b><i>@description@</i></b></li>
-<li>#chat.Contents#:  <p> <pre>@contents@</pre></p></li>
+<li>#chat.Name#: <b>@transcript_name@</b>
+<li>#chat.Description#: <b><i>@description@</i></b>
+
+
+<ul>
+<p>@contents;noquote@
 </ul>
+</ul>
 
 
Index: openacs-4/packages/chat/www/user-ban-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/user-ban-2.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/chat/www/user-ban-2.tcl	20 Apr 2001 20:51:08 -0000	1.1
+++ openacs-4/packages/chat/www/user-ban-2.tcl	24 Jun 2006 14:23:42 -0000	1.2
@@ -11,7 +11,7 @@
     party_id:integer,notnull
 }
 
-ad_require_permission $room_id chat_user_ban
+permission::require_permission -object_id $room_id -privilege chat_user_ban
 
 chat_user_ban $room_id $party_id
 
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/user-grant-2.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/user-grant-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/user-grant-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/user-grant.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/user-revoke-2.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/user-revoke-oracle.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/user-revoke-postgresql.xql'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.6 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/user-revoke.adp'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.4 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/user-revoke.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/ajax/chat.js'.
Fisheye: No comparison available.  Pass `N' to diff?
Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/chat/www/ajax/chat.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs-4/packages/chat/www/resources/active.png
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/resources/active.png,v
diff -u -r1.1 -r1.2
Binary files differ
Index: openacs-4/packages/chat/www/resources/admin.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/resources/admin.gif,v
diff -u -r1.1 -r1.2
Binary files differ
Index: openacs-4/packages/chat/www/resources/inactive.png
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/resources/inactive.png,v
diff -u -r1.1 -r1.2
Binary files differ