Index: openacs-4/packages/chat/chat.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/chat.info,v
diff -u -N -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 -N -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>
Index: openacs-4/packages/chat/catalog/chat.de_DE.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/catalog/chat.de_DE.ISO-8859-1.xml,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/catalog/chat.de_DE.ISO-8859-1.xml	24 Jun 2006 14:23:40 -0000	1.2
@@ -0,0 +1,120 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<message_catalog package_key="chat" package_version="5.0d6" locale="de_DE" charset="ISO-8859-1">
+
+  <msg key="actions">Aktionen</msg>
+  <msg key="Active">Aktiv</msg>
+  <msg key="active_users">Aktive Benutzer</msg>
+  <msg key="Add_moderator">Moderator hinzuf�gen</msg>
+  <msg key="Add_user_to_room">Benutzer hinzuf�gen</msg>
+  <msg key="Ajax">Ajax</msg>
+  <msg key="ajax_client_msg">Ajax Client</msg>
+  <msg key="Archive">Archivieren</msg>
+  <msg key="Are_you_sure_you_want_to_delete">Wirklich l�schen</msg>
+  <msg key="Are_you_sure_you_want_to_revoke">Wirklich Rechte am Chat entziehen?</msg>
+  <msg key="Are_you_sure_you_want_to_revoke_moderator">Wirklich Administratorrechte entziehen?</msg>
+  <msg key="Are_you_sure_you_want_to_unban">Aufheben der Sperre von</msg>
+  <msg key="AutoFlush">Nachrichten aufr�umen</msg>
+  <msg key="AutoFlushHelp">Alle Nachrichten in der Datenbank automatisch um Mitternacht l�schen. Dieser Parameter wird nur evaluiert, wenn der Raum archiviert wird.</msg>
+  <msg key="automatically_created_transcript">Automatisch erstelltes Protokoll</msg>
+  <msg key="AutoTranscript">Automatisches Protokoll</msg>
+  <msg key="AutoTranscriptHelp">Vor dem L�schen aller Nachrichten um Mitternacht ein Protokoll des Tages erstellen.</msg>
+  <msg key="Ban">Sperren</msg>
+  <msg key="Ban_chat_read_write">Rechte am Chat sperren f�r</msg>
+  <msg key="Ban_user">Benutzer sperren</msg>
+  <msg key="banned_users">gesperrten Benutzer</msg>
+  <msg key="Chat">Chat</msg>
+  <msg key="Chat_main_page">Chat �bersichtsseite</msg>
+  <msg key="Confirm_chat_transcript_delete">Chat-Protokoll wirklich l�schen?</msg>
+  <msg key="Confirm_message_delete">Nachricht wirklich l�schen?</msg>
+  <msg key="Confirm_revoke_moderator">Dem Benutzer Moderationsrechte wirklich entziehen?</msg>
+  <msg key="Confirm_revoke_user">Dem Benutzer Rechte wirklich entziehen?</msg>
+  <msg key="Confirm_room_delete">Raum tats�chlich l�schen?</msg>
+  <msg key="Confirm_unban_user">Best�tigen Sie die Aufhebung der Sperre</msg>
+  <msg key="Contents">Inhalt</msg>
+  <msg key="Could_not_update_room">Raum konnte nicht aktualisiert werden</msg>
+  <msg key="Could_not_update_transcript">Protokoll konnte nicht aktualisiert werden</msg>
+  <msg key="Create_a_new_room">Neuen Raum anlegen</msg>
+  <msg key="Create_a_room">Raum anlegen</msg>
+  <msg key="Create_new_room_failed">Das Anlegen des Raumes schlug fehl</msg>
+  <msg key="Create_room">Raum anlegen</msg>
+  <msg key="Create_transcript">Protokoll erzeugen</msg>
+  <msg key="creation_date">Erstellungdatum</msg>
+  <msg key="current_transcript">Aktuelle Nachrichten anzeigen</msg>
+  <msg key="date">Datum</msg>
+  <msg key="deactivate_room_after_transcript">Raum wird nach Erstellung des Protokolls deaktiviert</msg>
+  <msg key="Delete_all_messages_in_the_room">Alle Nachrichten im Raum l�schen</msg>
+  <msg key="Delete_messages">Nachrichten l�schen</msg>
+  <msg key="delete_messages_after_transcript">Bestehende Nachrichten werden nach Erstellung des Protokolls gel�scht</msg>
+  <msg key="Delete_messages_failed">Das L�schen der Nachrichten schlug fehl</msg>
+  <msg key="Delete_room">Raum l�schen</msg>
+  <msg key="Delete_room_failed">Das L�schen des Raumes schlug fehl</msg>
+  <msg key="Delete_transcript">Protokoll l�schen</msg>
+  <msg key="Delete_transcript_failed">Das L�schen des Protokolls schlug fehl</msg>
+  <msg key="Description">Beschreibung</msg>
+  <msg key="Edit">Bearbeiten</msg>
+  <msg key="Edit_room">Raum bearbeiten</msg>
+  <msg key="Edit_transcript">Protokoll bearbeiten</msg>
+  <msg key="exit_msg">Chat Raum verlassen</msg>
+  <msg key="Extreme_Actions">Gef�hrliche Aktionen</msg>
+  <msg key="from">f�r</msg>
+  <msg key="Grant">Rechte einr�umen</msg>
+  <msg key="Grant_chat_read_rite_privilege_for">Lese/Schreib Rechte einr�umen f�r</msg>
+  <msg key="Grant_moderator">Moderationsrechte einr�umen</msg>
+  <msg key="Grant_moderator_for">Moderationsrechte einr�umen f�r</msg>
+  <msg key="has_entered_the_room">hat den Raum betreten</msg>
+  <msg key="has_left_the_room">hat den Raum verlassen</msg>
+  <msg key="Hml">HTML</msg>
+  <msg key="HTML_chat">HTML</msg>
+  <msg key="html_client_msg">Browser</msg>
+  <msg key="Java">Java</msg>
+  <msg key="Java_chat">Java </msg>
+  <msg key="Javascript">Javascript</msg>
+  <msg key="key">Schl�ssel</msg>
+  <msg key="last_activity">Letzte Aktivit�t</msg>
+  <msg key="Log_off">Verlassen</msg>
+  <msg key="message">Nachricht</msg>
+  <msg key="message_count"># Nachrichten</msg>
+  <msg key="messages_in">Nachrichten in</msg>
+  <msg key="Moderated">Moderiert</msg>
+  <msg key="msg">Nachricht</msg>
+  <msg key="Name">Name</msg>
+  <msg key="No_information_available">Keine Information verf�gbar</msg>
+  <msg key="noactive">Keine aktiven</msg>
+  <msg key="Refresh">Neu laden</msg>
+  <msg key="remove">entfernen</msg>
+  <msg key="Revoke">Rechte entziehen</msg>
+  <msg key="revoke">Rechte entziehen</msg>
+  <msg key="Revoke_moderator">Moderationsrechte entziehen</msg>
+  <msg key="room_admin">Administration</msg>
+  <msg key="Room_deactivate">Raum deaktivieren</msg>
+  <msg key="Room_Information">Rauminformation</msg>
+  <msg key="Room_moderators">Moderator</msg>
+  <msg key="Room_name">Raumname</msg>
+  <msg key="Room_no_active">Raum nicht aktiv</msg>
+  <msg key="Room_not_found">Raum nicht gefunden</msg>
+  <msg key="rooms">R�ume</msg>
+  <msg key="Send_Refresh">Senden</msg>
+  <msg key="sending_message">Sende Nachricht...</msg>
+  <msg key="There_are_no_rooms_available">Es sind keine R�ume verf�gbar</msg>
+  <msg key="to">an</msg>
+  <msg key="Transcript">Protokoll</msg>
+  <msg key="Transcript_name">Bezeichnung des Protokoll</msg>
+  <msg key="transcript_of_date">Protokol vom</msg>
+  <msg key="transcript_of_room">Protokol der Nachrichten im Raum</msg>
+  <msg key="Transcript_preview">Protokoll ansehen</msg>
+  <msg key="transcription_msg">Protokoll aller Nachrichten anzeigen</msg>
+  <msg key="Transcripts">Protokolle</msg>
+  <msg key="transcripts_of_room">Verf�gbare Protokolle im Raum</msg>
+  <msg key="Unauthorized">Nicht authorisiert</msg>
+  <msg key="Unban">Sperre aufheben</msg>
+  <msg key="unban">Sperre aufheben</msg>
+  <msg key="Unban_user">Benutzersperre aufheben</msg>
+  <msg key="Untitled">Unbenannt</msg>
+  <msg key="Update_room">Raum aktualisieren</msg>
+  <msg key="Users_ban">Gesperrte Benutzer</msg>
+  <msg key="View">Anzeigen</msg>
+  <msg key="View_transcript">Protokoll anzeigen</msg>
+  <msg key="xotcl_missing">&lt;b&gt;Warnung&lt;/b&gt; Der Parameter &quot;DefaultClient&quot; des aktuellen Chat-Packets hat den Wert &quot;Ajax&quot; aber das Packet &quot;xotcl-core&quot; ist nicht installiert. Das Ajax Client Interface funktioniert nicht, wenn das Packet xotcl-core nicht installiert ist.</msg>
+  <msg key="You_dont_have_permission_room">Sie sind nicht berechtigt, diesen Chatraum zu betreten</msg>
+  <msg key="your_name_is">Ihr Name ist</msg>
+</message_catalog>
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 -N -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 -N -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/adClientSession.java,v
diff -u -N -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) {
Index: openacs-4/packages/chat/lib/current-messages.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/lib/current-messages.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/lib/current-messages.adp	24 Jun 2006 14:23:41 -0000	1.2
@@ -0,0 +1,14 @@
+<div id="messages">
+<if @messages:rowcount@ gt 0>
+<multiple name="messages">
+    <p class="line">
+        <span class="timestamp">@messages.creation_date@</span>
+        <span class="user"> @messages.person_name@: </span> 
+        <span class="message"> @messages.msg@ </span>
+    </p>
+</multiple>
+</if>
+<else>
+    <p class="line">#chat.No_information_available#</p>
+</else>
+</div>
\ No newline at end of file
Index: openacs-4/packages/chat/lib/current-messages.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/lib/current-messages.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/lib/current-messages.tcl	24 Jun 2006 14:23:41 -0000	1.2
@@ -0,0 +1,13 @@
+
+set sql {
+    select to_char(creation_date, 'DD.MM.YYYY hh24:mi:ss') as creation_date, creation_user, msg 
+    from chat_msgs 
+    where room_id  = :room_id 
+    order by creation_date
+}
+
+db_multirow -extend { person_name } messages select_msg_itens $sql {
+    if { [catch { set person_name [chat_user_name $creation_user] }] } {
+        set person_name "Unknown"
+    }
+}
Index: openacs-4/packages/chat/lib/transcript-view.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/lib/transcript-view.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/lib/transcript-view.adp	24 Jun 2006 14:23:41 -0000	1.2
@@ -0,0 +1,16 @@
+<if @edit_p@ eq 1>
+<a class="button" href="transcript-edit?transcript_id=@transcript_id@&room_id=@room_id@">#chat.Edit#</a>
+</if>
+
+<table border="0" cellpadding="2" cellspacing="2">
+    <tr class="form-element">
+        <td class="form-label">#chat.Transcript_name#</td>
+        <td>@transcript_name@</td>
+    </tr>
+    <tr class="form-element">
+        <td class="form-label">#chat.Description#</td>
+        <td>@description@</td>
+    </tr>
+</table>
+     
+<div id="messages">@contents;noquote@</div>
Index: openacs-4/packages/chat/lib/transcript-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/lib/transcript-view.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/lib/transcript-view.tcl	24 Jun 2006 14:23:41 -0000	1.2
@@ -0,0 +1,11 @@
+
+db_1row get_transcript {
+    select pretty_name as transcript_name,
+           description,
+           contents,
+           room_id
+    from chat_transcripts
+    where transcript_id=:transcript_id
+}
+
+set edit_p [permission::permission_p -object_id $room_id -privilege "chat_transcript_edit"]
Index: openacs-4/packages/chat/lib/transcripts.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/lib/transcripts.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/lib/transcripts.adp	24 Jun 2006 14:23:41 -0000	1.2
@@ -0,0 +1 @@
+<listtemplate name="chat_transcripts"></listtemplate>
Index: openacs-4/packages/chat/lib/transcripts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/lib/transcripts.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/lib/transcripts.tcl	24 Jun 2006 14:23:41 -0000	1.2
@@ -0,0 +1,35 @@
+
+set transcript_delete_p [permission::permission_p -object_id $room_id -privilege chat_transcript_delete]
+set transcript_view_p [permission::permission_p -object_id $room_id -privilege chat_transcript_view]
+
+# List available chat transcript
+db_multirow -extend { creation_date_pretty viewer } chat_transcripts list_transcripts *SQL* {
+    set creation_date_pretty [lc_time_fmt $creation_date "%q %X"]
+}
+
+list::create \
+    -name "chat_transcripts" \
+    -multirow "chat_transcripts" \
+    -key transcript_id \
+    -pass_properties { transcript_delete_p room_id } \
+    -row_pretty_plural [_ chat.Transcripts] \
+    -elements {
+        pretty_name {
+            label "#chat.Name#"
+            link_url_eval {chat-transcript?room_id=$room_id&transcript_id=$transcript_id}
+        }
+        creation_date_pretty {
+            label "#chat.creation_date#"
+        }
+        actions {
+            label "#chat.actions#"
+            html { align "center" }
+            display_template {
+                <if @transcript_delete_p@ eq "1">
+                <a href="transcript-delete?transcript_id=@chat_transcripts.transcript_id@&room_id=@room_id@">
+                <img src="/shared/images/Delete16.gif" border="0">
+                </a>
+                </if>
+            }
+        }
+    }
Index: openacs-4/packages/chat/lib/transcripts.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/lib/Attic/transcripts.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/lib/transcripts.xql	24 Jun 2006 14:23:41 -0000	1.2
@@ -0,0 +1,13 @@
+<?xml version="1.0"?>
+<queryset>
+
+<fullquery name="list_transcripts">
+  <querytext>
+   select ct.transcript_id, ct.pretty_name, ao.creation_date
+    from chat_transcripts ct, acs_objects ao
+    where ct.transcript_id = ao.object_id and ct.room_id = :room_id
+    order by ao.creation_date desc
+ </querytext>
+</fullquery>
+
+</queryset>
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 -N -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 -N -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');
Index: openacs-4/packages/chat/sql/oracle/upgrade/upgrade-5.0d4-5.0d5.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/sql/oracle/upgrade/upgrade-5.0d4-5.0d5.sql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/sql/oracle/upgrade/upgrade-5.0d4-5.0d5.sql	24 Jun 2006 14:23:41 -0000	1.2
@@ -0,0 +1,252 @@
+-- packages/chat
+-- oracle/upgrade/upgrade-5.0d4-5.0d5.sql
+
+
+alter table chat_rooms add auto_flush_p char(1) default 't';
+alter table chat_rooms add constraint chat_rooms_auto_flush_ck check(auto_flush_p in ('t','f'));
+
+alter table chat_rooms add auto_transcript_p char(1) default 'f';
+alter table chat_rooms add constraint chat_rooms_auto_transcript_ck check(auto_transcript_p in ('t','f'));
+
+update chat_rooms set auto_flush_p = 't', auto_transcript_p = 'f';
+
+-- chat_room package specification and body
+
+create or replace package chat_room
+as
+    function new (
+        room_id        in chat_rooms.room_id%TYPE        default null,
+        pretty_name    in chat_rooms.pretty_name%TYPE,
+        description    in chat_rooms.description%TYPE    default null,
+        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,
+        creation_ip    in acs_objects.creation_ip%TYPE   default null,
+        object_type    in acs_objects.object_type%TYPE   default 'chat_room'
+    ) return acs_objects.object_id%TYPE;
+
+    procedure del (
+        room_id        in chat_rooms.room_id%TYPE
+    );    
+
+    procedure edit (
+        room_id        in chat_rooms.room_id%TYPE,
+        pretty_name    in chat_rooms.pretty_name%TYPE,
+        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,
+   		auto_flush_p   in chat_rooms.auto_flush_p%TYPE,
+		auto_transcript_p	in chat_rooms.auto_transcript_p%TYPE
+    );        
+
+    function name (
+        room_id        in chat_rooms.room_id%TYPE
+    ) return chat_rooms.pretty_name%TYPE;
+
+    procedure message_post (
+        room_id        in chat_msgs.room_id%TYPE,
+        msg            in chat_msgs.msg%TYPE             default null,
+        html_p         in chat_msgs.html_p%TYPE          default 'f',
+        approved_p     in chat_msgs.approved_p%TYPE      default 't',
+        creation_user  in chat_msgs.creation_user%TYPE,
+        creation_ip    in chat_msgs.creation_ip%TYPE     default null,
+        creation_date  in chat_msgs.creation_date%TYPE   default sysdate
+    );
+
+    function message_count (
+        room_id        in chat_rooms.room_id%TYPE
+    ) return integer;
+
+    procedure delete_all_msgs (
+        room_id        in chat_rooms.room_id%TYPE
+    );
+
+end chat_room;
+/
+show errors
+
+create or replace package body chat_room
+as
+    function new (
+        room_id        in chat_rooms.room_id%TYPE        default null,
+        pretty_name    in chat_rooms.pretty_name%TYPE,
+        description    in chat_rooms.description%TYPE    default null,
+        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,
+        creation_ip    in acs_objects.creation_ip%TYPE   default null,
+        object_type    in acs_objects.object_type%TYPE   default 'chat_room'
+    ) return acs_objects.object_id%TYPE
+    is
+        v_room_id chat_rooms.room_id%TYPE;
+    begin
+        v_room_id := acs_object.new (
+            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,
+	    auto_flush_p,
+	    auto_transcript_p)
+	values (
+            v_room_id, 
+            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;
+
+    procedure del (
+        room_id        in chat_rooms.room_id%TYPE
+    )
+    is
+    begin
+        -- First erase all the messages relate to this chat room.
+        delete from chat_msgs where room_id = chat_room.del.room_id;
+
+        -- Delete all privileges associate with this room
+        delete from acs_permissions where object_id = chat_room.del.room_id;
+
+        -- Now delete the chat room itself.
+        delete from chat_rooms where room_id = chat_room.del.room_id;
+
+        acs_object.del(room_id);
+    end del;
+
+    procedure edit (
+        room_id        in chat_rooms.room_id%TYPE,
+        pretty_name    in chat_rooms.pretty_name%TYPE,
+        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,
+	auto_flush_p   in chat_rooms.auto_flush_p%TYPE,
+	auto_transcript_p	in chat_rooms.auto_transcript_p%TYPE
+    ) 
+    is
+    begin
+        update chat_rooms set
+            pretty_name = chat_room.edit.pretty_name,
+            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,
+            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;        
+
+    function name (
+        room_id        in chat_rooms.room_id%TYPE
+    ) return chat_rooms.pretty_name%TYPE
+    is
+        v_room_name chat_rooms.pretty_name%TYPE;
+    begin
+        select pretty_name into v_room_name 
+        from chat_rooms
+        where room_id = chat_room.name.room_id;
+
+        return v_room_name;
+    end name;
+
+    procedure message_post (
+        room_id        in chat_msgs.room_id%TYPE,
+        msg            in chat_msgs.msg%TYPE             default null,
+        html_p         in chat_msgs.html_p%TYPE          default 'f',
+        approved_p     in chat_msgs.approved_p%TYPE      default 't',
+        creation_user  in chat_msgs.creation_user%TYPE,
+        creation_ip    in chat_msgs.creation_ip%TYPE     default null,
+        creation_date  in chat_msgs.creation_date%TYPE   default sysdate
+    )
+    is
+        v_msg_id chat_msgs.msg_id%TYPE;
+        v_msg_archive_p chat_rooms.archive_p%TYPE;
+        v_msg chat_msgs.msg%TYPE;
+    begin
+        -- Get msg id from the global acs_object sequence.
+        select acs_object_id_seq.nextval into v_msg_id from dual;
+        
+        select archive_p into v_msg_archive_p
+        from chat_rooms
+        where room_id = chat_room.message_post.room_id;
+
+        if v_msg_archive_p = 't' then
+            v_msg := msg;
+        else
+            v_msg := null;
+        end if;
+
+        -- Insert into chat_msgs table.
+        insert into chat_msgs (
+            msg_id,   
+            room_id, 
+            msg, 
+            msg_len, 
+            html_p, 
+            approved_p, 
+            creation_user, 
+            creation_ip, 
+            creation_date)
+        values (
+            v_msg_id, 
+            room_id, 
+            v_msg, 
+            nvl(length(msg), 0),
+            html_p, 
+            approved_p, 
+            creation_user, 
+            creation_ip, 
+            creation_date) ;
+    end message_post;
+
+
+    function message_count (
+        room_id        in chat_rooms.room_id%TYPE
+    ) return integer
+    is
+        v_count integer;
+    begin
+        select count(*) into v_count 
+        from chat_msgs
+        where room_id = chat_room.message_count.room_id;
+         
+        return v_count;
+    end message_count;
+
+    procedure delete_all_msgs (
+        room_id        in chat_rooms.room_id%TYPE
+    )
+    is
+    begin
+        delete from chat_msgs where room_id = chat_room.delete_all_msgs.room_id;
+    end delete_all_msgs;
+
+end chat_room;
+/
+show errors
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 -N -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;
Index: openacs-4/packages/chat/sql/postgresql/upgrade/upgrade-5.0d4-5.0d5.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/sql/postgresql/upgrade/upgrade-5.0d4-5.0d5.sql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/sql/postgresql/upgrade/upgrade-5.0d4-5.0d5.sql	24 Jun 2006 14:23:41 -0000	1.2
@@ -0,0 +1,76 @@
+
+alter table chat_rooms add column auto_flush_p boolean;
+alter table chat_rooms alter column auto_flush_p set default 't';
+
+alter table chat_rooms add column auto_transcript_p boolean;
+alter table chat_rooms alter column auto_transcript_p set default 'f';
+
+update chat_rooms set auto_flush_p = 't', auto_transcript_p = 'f';
+
+alter table chat_msgs add column creation_date2 timestamptz;
+update chat_msgs set creation_date2 = creation_date;
+alter table chat_msgs drop column creation_date;
+alter table chat_msgs rename column creation_date2 to creation_date;
+
+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;
+   p_pretty_name    alias for $2;
+   p_description    alias for $3;
+   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,
+            auto_flush_p   = p_auto_flush_p,
+            auto_transcript_p   = p_auto_transcript_p
+        where
+            room_id = p_room_id;
+        return 0;
+end;' language 'plpgsql';
+
+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;
+   p_pretty_name    alias for $2;
+   p_description    alias for $3;
+   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;
+   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 (
+     null,
+     ''chat_room'',
+     now(),
+     p_creation_user,
+     p_creation_ip,
+     p_context_id
+   );
+
+   insert into chat_rooms
+       (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, p_auto_flush_p, p_auto_transcript_p);
+
+return v_room_id;
+
+end;' language 'plpgsql';
+
Index: openacs-4/packages/chat/tcl/chat-ajax-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-ajax-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/tcl/chat-ajax-procs.tcl	24 Jun 2006 14:23:41 -0000	1.2
@@ -0,0 +1,67 @@
+ad_library {
+    chat - chat procs
+
+    @creation-date 2006-02-02
+    @author Gustaf Neumann
+    @author Peter Alberer
+    @cvs-id $Id: chat-ajax-procs.tcl,v 1.2 2006/06/24 14:23:41 gustafn Exp $  
+}
+
+namespace eval ::chat {
+  ::xo::ChatClass Chat -superclass ::xo::Chat
+
+  Chat instproc render {} {
+    my orderby time
+    set result ""
+    foreach child [my children] {
+      set msg       [$child msg]
+      set user_id   [$child user_id]
+      set color     [$child color]
+      set timelong  [clock format [$child time]]
+      set timeshort [clock format [$child time] -format {[%H:%M:%S]}]
+      set userlink  [my user_link -user_id $user_id -color $color]
+      append result "<p class='line'><span class='timestamp'>$timeshort</span>" \
+	  "<span class='user'>$userlink:</span>" \
+	  "<span class='message'>[my encode $msg]</span></p>\n"
+    }
+    return $result
+  }
+
+  Chat proc login {-chat_id -package_id} {
+    auth::require_login
+    if {![info exists package_id]} {set package_id [ad_conn package_id] }
+    if {![info exists chat_id]}    {set chat_id $package_id }
+
+    set context id=$chat_id&s=[ad_conn session_id].[clock seconds]
+    set jspath packages/chat/www/ajax/chat.js
+    if { ![file exists [acs_root_dir]/$jspath] } {
+      return -code error "File [acs_root_dir]/$jspath does not exist"
+    }
+    set file [open [acs_root_dir]/$jspath]; set js [read $file]; close $file
+    set path      [site_node::get_url_from_object_id -object_id $package_id]
+    set login_url ${path}ajax/chat?m=login&$context
+    set send_url  ${path}ajax/chat?m=add_msg&$context&msg=
+    set users_url ${path}ajax/chat?m=get_users&$context
+    return "\
+      <script type='text/javascript' language='javascript'>
+      $js
+      // register the data sources (for sending messages, receiving updates)
+      var pushMessage = registerDataConnection(pushReceiver, '$path/ajax/chat?m=get_new&$context', false);
+      var pullUpdates = registerDataConnection(updateReceiver, '$path/ajax/chat?m=get_updates&$context', true);
+      // register an update function to refresh the data sources every 5 seconds
+      var updateInterval = setInterval(updateDataConnections,5000);
+      </script>
+      <form id='ichat_form' name='ichat_form' action='#' onsubmit='pushMessage.chatSendMsg(\"$send_url\"); return false;'>
+      <iframe name='ichat' id='ichat' frameborder='0' src='$login_url'
+          style='width:70%; border:1px solid black; margin-right:15px;' height='257'></iframe>
+      <iframe name='ichat-users' id='ichat-users' frameborder='0' src='$users_url'
+          style='width:25%; border:1px solid black;' height='257'></iframe>
+      <div style='margin-top:10px;'>
+      #chat.message# <input tabindex='1' type='text' size='80' name='msg' id='chatMsg'>
+      <input type='submit' value='#chat.Send_Refresh#'>
+      </div>
+      </form> 
+    "
+  }
+}
+
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 -N -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/chat-procs-oracle.xql,v
diff -u -N -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/chat-procs-postgresql.xql,v
diff -u -N -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 -N -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
+    }
+}
 
-
-
-
-
-
-
Index: openacs-4/packages/chat/tcl/chat-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/tcl/chat-procs.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/tcl/chat-procs.xql	24 Jun 2006 14:23:41 -0000	1.2
@@ -0,0 +1,40 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+  <fullquery name="chat_transcript_new.update_contents">
+    <querytext>
+	update chat_transcripts 
+	set contents = :contents 
+	where transcript_id = :transcript_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="chat_transcript_edit.update_contents">
+    <querytext>
+	update chat_transcripts 
+	set contents = :contents 
+	where transcript_id = :transcript_id
+    </querytext>
+  </fullquery>
+
+  <fullquery name="chat_flush_rooms.get_rooms">
+    <querytext>
+            select room_id 
+            from chat_rooms 
+            where archive_p = 't' and auto_flush_p = 't'
+    </querytext>
+  </fullquery>
+
+  <fullquery name="chat_room_flush.get_archives_messages">
+    <querytext>
+      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 creation_date
+    </querytext>
+  </fullquery>
+
+</queryset>
+
Index: openacs-4/packages/chat/www/ajax-chat-script.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/ajax-chat-script.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/www/ajax-chat-script.adp	24 Jun 2006 14:23:41 -0000	1.2
@@ -0,0 +1,13 @@
+<master>
+<property name="context">@context_bar;noquote@</property>
+<property name="title">@room_name;noquote@</property>
+<property name="focus">ichat_form.msg</property>
+
+<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=html" class="button" title="#chat.html_client_msg#">#chat.Hml#</a>
+</p>
+
+@chat_frame;noquote@
+
Index: openacs-4/packages/chat/www/ajax-chat-script.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/ajax-chat-script.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/www/ajax-chat-script.tcl	24 Jun 2006 14:23:41 -0000	1.2
@@ -0,0 +1,12 @@
+ad_page_contract {
+  a tiny chat client
+
+  @author Gustaf Neumann (gustaf.neumann@wu-wien.ac.at)
+  @creation-date Jan 31, 2006
+  @cvs-id $Id: ajax-chat-script.tcl,v 1.2 2006/06/24 14:23:41 gustafn Exp $
+} -query {
+  msg:optional
+}
+
+set chat_frame [ ::chat::Chat login -chat_id $room_id]
+
Index: openacs-4/packages/chat/www/chat-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat-oracle.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/www/chat-oracle.xql	24 Jun 2006 14:23:41 -0000	1.2
@@ -0,0 +1,19 @@
+<?xml version="1.0"?>
+
+<queryset>
+<rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="select_msg_items">
+  <querytext>
+	select to_char(creation_date, 'DD.MM.YYYY HH24:MI:SS') as creation_date_pretty, 
+	       creation_user, 
+	       msg
+    from chat_msgs 
+    where room_id  = :room_id 
+      and rownum <= 20 
+    order by creation_date desc
+  </querytext>
+</fullquery>
+
+</queryset>
+
Index: openacs-4/packages/chat/www/chat-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/www/chat-postgresql.xql	24 Jun 2006 14:23:41 -0000	1.2
@@ -0,0 +1,19 @@
+<?xml version="1.0"?>
+
+<queryset>
+<rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="select_msg_items">
+  <querytext>
+	select to_char(creation_date, 'DD.MM.YYYY hh24:mi:ss') as creation_date_pretty, 
+	       creation_user, 
+	       msg
+    from chat_msgs 
+    where room_id  = :room_id 
+    order by creation_date desc
+    limit 20 
+  </querytext>
+</fullquery>
+
+</queryset>
+
Index: openacs-4/packages/chat/www/chat-transcript.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat-transcript.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/www/chat-transcript.adp	24 Jun 2006 14:23:41 -0000	1.2
@@ -0,0 +1,25 @@
+<master>
+<property name="context">@context_bar;noquote@</property>
+<property name="title">#chat.transcript_of_room# "@room_name;noquote@"</property>
+
+<style type='text/css'>
+#messages { 
+    border: 1px dotted black; 
+    padding: 5px;
+    margin-top:10px; 
+    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 {text-align: right; vertical-align: top; font-weight:bold; }
+#messages .message {vertical-align: top}
+#messages .line {margin:0px;}
+</style>
+
+<if @transcript_id@ eq 0>
+<include src="/packages/chat/lib/current-messages" room_id=@room_id@>
+</if>
+<else>
+<include src="/packages/chat/lib/transcript-view" room_id=@room_id@ transcript_id=@transcript_id@ write_p=@write_p@>
+</else>
Index: openacs-4/packages/chat/www/chat-transcript.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat-transcript.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/www/chat-transcript.tcl	24 Jun 2006 14:23:41 -0000	1.2
@@ -0,0 +1,26 @@
+ad_page_contract {
+    mostra mensagens do chat arquivadas
+} {
+   room_id:integer
+   {transcript_id:integer,optional 0}
+} 
+
+set page_title "[_ chat.Transcript]"   
+set context_bar "$page_title"
+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"]
+
+if { ($read_p == "0" && $write_p == "0") || ($ban_p == "1") } {
+    #Display unauthorize privilege page.
+    ad_returnredirect unauthorized
+    ad_script_abort
+}   
+
+if { [catch {set room_name [chat_room_name $room_id]} errmsg] } {
+    ad_return_complaint 1 "[_ chat.Room_not_found]"
+}
+
+ad_return_template
\ No newline at end of file
Index: openacs-4/packages/chat/www/chat-transcripts.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat-transcripts.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/www/chat-transcripts.adp	24 Jun 2006 14:23:41 -0000	1.2
@@ -0,0 +1,12 @@
+<master>
+<property name="context">#chat.Transcripts#</property>
+<property name="title">#chat.transcripts_of_room# "@room_name;noquote@"</property>
+
+<if @active@ eq "t">
+<p><a class="button" href="chat-transcript?room_id=@room_id@">#chat.current_transcript#</a></p>
+</if>
+<else>
+<br>
+</else>
+
+<include src="/packages/chat/lib/transcripts" room_id=@room_id@>
Index: openacs-4/packages/chat/www/chat-transcripts.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat-transcripts.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/www/chat-transcripts.tcl	24 Jun 2006 14:23:42 -0000	1.2
@@ -0,0 +1,16 @@
+ad_page_contract {
+
+    Show available chat transcripts
+
+    @author Peter Alberer (peter@alberer.com)
+    @creation-date March 26, 2006
+} {
+    room_id:integer,notnull
+} 
+
+if { [catch {set room_name [chat_room_name $room_id]} errmsg] } {
+    ad_return_complaint 1 "[_ chat.Room_not_found]"
+}
+
+set active [room_active_status $room_id]
+
Index: openacs-4/packages/chat/www/chat.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/chat.tcl,v
diff -u -N -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 -N -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>
Index: openacs-4/packages/chat/www/html-chat.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/html-chat.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/www/html-chat.tcl	24 Jun 2006 14:23:42 -0000	1.2
@@ -0,0 +1,34 @@
+ad_page_contract {
+    mostra mensagens do chat
+} {
+   page:optional
+}   -properties {
+    room_id:onevalue
+}
+   
+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 active  [room_active_status $room_id]
+
+# get the "rich" client settings
+set richclient(short) [parameter::get -parameter "DefaultClient"]
+set richclient(msg) "[_ chat.${richclient(short)}_client_msg]"
+set richclient(title) "[_ chat.[string totitle $richclient(short)]]"
+
+if { ($read_p == "0" && $write_p == "0") || ($ban_p == "1") || ($active eq "f") } {
+    #Display unauthorize privilege page.
+    ad_returnredirect unauthorized
+    ad_script_abort
+}
+
+if { [catch {set room_name [chat_room_name $room_id]} errmsg] } {
+    ad_return_complaint 1 "[_ chat.Room_not_found]"
+}
+
+::chat::Chat c1 -volatile -encoder noencode -chat_id $room_id
+set html_chat [c1 get_all]
+set html_users [c1 get_users]
+
+ad_return_template
\ No newline at end of file
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 -N -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 -N -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 -N -r1.3 -r1.4
--- openacs-4/packages/chat/www/index.tcl	14 Mar 2006 12:16:09 -0000	1.3
+++ openacs-4/packages/chat/www/index.tcl	24 Jun 2006 14:23:42 -0000	1.4
@@ -15,23 +15,80 @@
 }
 
 set package_id [ad_conn package_id]
-
-set context_bar [list]
-
 set user_id [ad_conn user_id]
+set actions [list]
+set room_create_p [permission::permission_p -object_id $package_id -privilege chat_room_create]
+set default_client [parameter::get -parameter "DefaultClient" -default "ajax"]
+set warning ""
 
-set room_create_p [ad_permission_p $package_id chat_room_create]
+if { $default_client eq "ajax" && ![apm_package_installed_p xotcl-core] } {
+    set warning "[_ chat.xotcl_missing]"
+}
 
+if { $room_create_p } {
+    lappend actions "#chat.Create_a_new_room#" room-edit "#chat.Create_a_new_room#"
+}
 
-db_multirow rooms rooms_list {}
+db_multirow -extend { active_users last_activity } rooms rooms_list {} {
+  set room [::chat::Chat create new -volatile -chat_id $room_id]
+  set active_users [$room nr_active_users]
+  set last_activity [$room last_activity]
+}
 
+list::create \
+    -name "rooms" \
+    -multirow "rooms" \
+    -key room_id \
+    -pass_properties {room_create_p} \
+    -actions $actions \
+    -row_pretty_plural [_ chat.rooms] \
+    -elements {
+        active {
+            label "#chat.Active#"
+            html { align "center" }
+            display_template {
+                <if @rooms.active_p@ eq t>
+                <div style="padding-top:5px;">
+                <img src="/resources/chat/active.png">
+                </div>
+                </if>
+                <else>
+                <div style="padding-top:5px;">                
+                <img src="/resources/chat/inactive.png">
+                </div>
+                </else>
+            }
+        }
+        pretty_name {
+            label "#chat.Room_name#"
+            html { width 400px }
+            display_template {
+                <if @rooms.active_p@ eq t>
+                <a href="room-enter?room_id=@rooms.room_id@&client=$default_client">@rooms.pretty_name@</a>&nbsp;\[<a href="room-enter?room_id=@rooms.room_id@&client=html">#chat.HTML_chat#</a>\]
+                </if>
+                <else>
+                @rooms.pretty_name@
+                </else>
+                <div style="float:left">@rooms.description@</div>                
+            }
+        }
+        active_users {
+            label "#chat.active_users#"
+            html { style "text-align:center;" }
+        }
+        last_activity {
+            label "#chat.last_activity#"
+            html { style "text-align:center;" }
+        }
+        actions {
+            label "#chat.actions#"
+            display_template {
+                <a href="chat-transcripts?room_id=@rooms.room_id@" class=button>#chat.Transcripts#</a>
+                <if @room_create_p@ eq 1>
+                <a href="@rooms.base_url@room?room_id=@rooms.room_id@" class=button>#chat.room_admin#</a>
+                </if>
+            }
+        }
+    }
 
 ad_return_template
-    
-
-
-
-
-
-
-
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 -N -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 -N -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 -N -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>
 
 
Index: openacs-4/packages/chat/www/room-edit-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/room-edit-2.tcl,v
diff -u -N
--- openacs-4/packages/chat/www/room-edit-2.tcl	14 Mar 2006 12:16:09 -0000	1.4
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,33 +0,0 @@
-#/www/chat/room-edit-2.tcl
-ad_page_contract {
-    Update room information.
-
-    @author David Dao (ddao@arsdigita.com)
-    @creation-date November 15, 2000
-    @cvs-id $Id: room-edit-2.tcl,v 1.4 2006/03/14 12:16:09 emmar Exp $
-} {
-    room_id:notnull,integer
-    pretty_name:notnull,trim
-    {description:trim ""}
-    {moderated_p "f"}
-    {archive_p "f"}
-    {active_p "f"}
-}
-
-ad_require_permission $room_id chat_room_edit
-
-ns_log notice "receive: moderated_p:$moderated_p archive_p:$archive_p  active_p:$active_p"
-
-
-if {[catch {chat_room_edit $room_id $pretty_name $description $moderated_p $active_p $archive_p} errmsg]} {
-
-    ad_return_complaint 1 "[_ chat.Could_not_update_room]: $errmsg"
-}
-
-
-ad_returnredirect "room?room_id=$room_id"
-
-
-
-
-
Index: openacs-4/packages/chat/www/room-edit.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/room-edit.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/www/room-edit.adp	24 Jun 2006 14:23:42 -0000	1.2
@@ -0,0 +1,4 @@
+<master>
+<property name="title">@title@</property>
+
+<formtemplate id="edit-room"></formtemplate>
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 -N -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/room-enter.tcl,v
diff -u -N -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"
Index: openacs-4/packages/chat/www/room-entry.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/room-entry.adp,v
diff -u -N
--- openacs-4/packages/chat/www/room-entry.adp	14 Mar 2006 12:16:09 -0000	1.5
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,69 +0,0 @@
-<!--
-    Create/edit form for room information.
-
-    @author David Dao (ddao@arsdigita.com)
-    @creation-date November 17, 2000
-    @cvs-id $Id: room-entry.adp,v 1.5 2006/03/14 12:16:09 emmar Exp $
--->
-<master>
-<property name="context">@context_bar;noquote@</property>
-<property name="title">@title;noquote@</property>
-
-<form action="@action@" method="post">
-   <input type="hidden" name="room_id" value="@room_id@">
-   <blockquote>
-      <table>
-         <tr>
-            <th align="right">#chat.Room_name#:</th>
-            <td><input size="50" name="pretty_name" value="@pretty_name@"></td>
-         </tr>
-         <tr>
-            <th align="right">#chat.Description#:</th>
-            <td><textarea name="description" rows=6 cols=65>@description@</textarea>
-         </tr>
-         
-         
-         <input type="hidden" name=""moderated_p" value="f">
-<!--          
-         <tr>
-            <th align="right">#chat.Moderated#:</th>
-            <if @moderated_p@ eq "t">
-               <td><input type="checkbox" name="moderated_p" value="t" checked></td>
-            </if>
-            <else>
-               <td><input type="checkbox" name="moderated_p" value="t"></td>
-            </else>
-          </tr>
--->          
-
-
-        <tr>
-           <th align="right">#chat.Active#:</th>
-           <if @active_p@ eq "t">
-              <td><input type="checkbox" name="active_p" value="t" checked></td>
-           </if>
-           <else>
-              <td><input type="checkbox" name="active_p" value="t"></td>
-           </else>
-         </tr>
-         <tr>
-           <th align="right">#chat.Archive#:</th>
-           <if @archive_p@ eq "t">
-              <td><input type="checkbox" name="archive_p" value="t" checked></td>
-           </if>
-           <else>
-              <td><input type="checkbox" name="archive_p" value="t"></td>
-           </else>
-          </tr>
-          <tr>
-            <th></th>
-            <td><input type="submit" value="@submit_label@"></td>
-       </table>
-    </blockquote>
-</form>
-
-
-
-
-
-
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 -N -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]
Index: openacs-4/packages/chat/www/room-new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/room-new-2.tcl,v
diff -u -N
--- openacs-4/packages/chat/www/room-new-2.tcl	14 Mar 2006 12:16:09 -0000	1.3
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,50 +0,0 @@
-#/chat/www/room-new-2.tcl
-ad_page_contract {
-    Add a new room to the database.
-
-    @author David Dao (ddao@arsdigita.com)
-    @creation-date November 15, 2000
-    @cvs-id $Id: room-new-2.tcl,v 1.3 2006/03/14 12:16:09 emmar Exp $
-} {
-    pretty_name:notnull,trim
-    {description:trim ""}
-    {moderated_p "f"}
-    {archive_p "f"}
-    {active_p "t"}
-}
-
-set package_id [ad_conn package_id]
-set user_id [ad_conn user_id]
-set creation_ip [ad_conn peeraddr]
-
-ad_require_permission $package_id chat_room_create
-
-if {[catch {set room_id [chat_room_new -moderated_p $moderated_p \
-                          -description $description \
-                          -active_p $active_p \
-                          -archive_p $archive_p \
-                          -context_id $package_id \
-                          -creation_user $user_id \
-                          -creation_ip $creation_ip $pretty_name]} errmsg]} {
-    ad_return_complaint 1 "[_ chat.Create_new_room_failed]: $errmsg"
-}
-
-set comm_id [dotlrn_community::get_community_id] 
-if {$comm_id ne ""} {
-  chat_user_grant $room_id [dotlrn_community::get_community_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 -1
-}
-
-ad_returnredirect "room?room_id=$room_id"
-
-
-
-
-
-
Index: openacs-4/packages/chat/www/room-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/room-new.tcl,v
diff -u -N
--- openacs-4/packages/chat/www/room-new.tcl	14 Mar 2006 12:16:09 -0000	1.3
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,33 +0,0 @@
-#/chat/www/room-new.tcl
-ad_page_contract {
-    Display a form to create a new room.
-
-    @author David Dao (ddao@arsdigita.com)
-    @creation-date November 13, 2000
-    @cvs-id $Id: room-new.tcl,v 1.3 2006/03/14 12:16:09 emmar Exp $
-} {
-} -properties {
-    context_bar:onevalue
-    room_id:onevalue
-    title:onevalue
-    action:onevalue
-    submit_label:onevalue
-    pretty_name:onevalue
-    moderated_p:onevalue
-}
-
-ad_require_permission [ad_conn package_id] chat_room_create
-
-set context_bar [list "[_ chat.Create_a_room]"]
-set title "[_ chat.Create_a_room]"
-set action "room-new-2"
-set submit_label "[_ chat.Create_room]"
-set pretty_name ""
-set description ""
-set moderated_p "f"
-set archive_p "f"
-set active_p "t"
-set room_id ""
-
-ad_return_template "room-entry"
-
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 -N -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 -N -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 -N -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 -N -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 -N -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 -N -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 -N -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 -N -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 -N -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/transcript-edit-2.tcl,v
diff -u -N -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"
 }
Index: openacs-4/packages/chat/www/transcript-edit.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/transcript-edit.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/www/transcript-edit.adp	24 Jun 2006 14:23:42 -0000	1.2
@@ -0,0 +1,4 @@
+<master>
+<property name="title">#chat.Edit_transcript# @pretty_name@</property>
+
+<formtemplate id="edit-transcription"></formtemplate>
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 -N -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/transcript-entry.adp,v
diff -u -N -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/transcript-new-2.tcl,v
diff -u -N -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 -N -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 -N -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 -N -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/transcript-view.adp,v
diff -u -N -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 -N -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
 
Index: openacs-4/packages/chat/www/user-grant-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/user-grant-2.tcl,v
diff -u -N
--- openacs-4/packages/chat/www/user-grant-2.tcl	20 Apr 2001 20:51:08 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,18 +0,0 @@
-#/chat/www/user-grant-2.tcl
-ad_page_contract {
-
-    Grant chat user privilege.
-
-    @author David Dao (ddao@arsdigita.com)
-    @creation-date November 22, 2000
-    @cvs-id $Id: user-grant-2.tcl,v 1.1 2001/04/20 20:51:08 donb Exp $
-} {
-    room_id:integer,notnull
-    party_id:integer,notnull
-}
-
-ad_require_permission $room_id chat_user_grant
-
-chat_user_grant $room_id $party_id
-
-ad_returnredirect "room?room_id=$room_id"
\ No newline at end of file
Index: openacs-4/packages/chat/www/user-grant-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/user-grant-oracle.xql,v
diff -u -N
--- openacs-4/packages/chat/www/user-grant-oracle.xql	14 Mar 2006 12:16:09 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,14 +0,0 @@
-<?xml version="1.0"?>
-<queryset>
-<rdbms><type>oracle</type><version>8.1.6</version></rdbms>
-
-
-<fullquery name="list_parties">
-  <querytext>
-    select party_id, acs_object.name(party_id) as name
-    from parties
-  </querytext>
-</fullquery>
-
-
-</queryset>
Index: openacs-4/packages/chat/www/user-grant-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/user-grant-postgresql.xql,v
diff -u -N
--- openacs-4/packages/chat/www/user-grant-postgresql.xql	14 Mar 2006 12:16:09 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,12 +0,0 @@
-<?xml version="1.0"?>
-<queryset>
-<rdbms><type>postgresql</type><version>7.1</version></rdbms>
-
-<fullquery name="list_parties">
-  <querytext>
-     select party_id, acs_object__name(party_id) as name
-     from parties
-  </querytext>
-</fullquery>
-
-</queryset>
Index: openacs-4/packages/chat/www/user-grant.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/user-grant.tcl,v
diff -u -N
--- openacs-4/packages/chat/www/user-grant.tcl	14 Mar 2006 12:16:09 -0000	1.3
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,32 +0,0 @@
-#/chat/www/user-grant.tcl
-ad_page_contract {
-    
-    Allow user to the chat room.
-
-    @author David Dao (ddao@arsdigita.com)
-    @creation-date November 22, 2000
-    @cvs-id $Id: user-grant.tcl,v 1.3 2006/03/14 12:16:09 emmar Exp $
-} {
-    room_id:integer,notnull
-} -properties {
-    context_bar:onevalue
-    title:onevalue
-    action:onevalue
-    submit_label:onevalue
-    room_id:onevalue
-    description:onevalue
-    parties:multirow
-}
-
-ad_require_permission $room_id chat_user_grant
-
-set context_bar [list "[_ chat.Grant_user]"]
-set submit_label "[_ chat.Grant]"
-set title "[_ chat.Grant_user]"
-set action "user-grant-2"
-set description "[_ chat.Grant_chat_read_rite_privilege_for] <b>[chat_room_name $room_id]</b> [_ chat.to]"
-db_multirow parties list_parties { }
-
-ad_return_template grant-entry
-
-
Index: openacs-4/packages/chat/www/user-revoke-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/user-revoke-2.tcl,v
diff -u -N
--- openacs-4/packages/chat/www/user-revoke-2.tcl	14 Mar 2006 12:16:09 -0000	1.2
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,18 +0,0 @@
-#/chat/www/user-revoke-2.tcl
-ad_page_contract {
-    
-    Revoke chat user privilege.
-
-    @author David Dao (ddao@arsdigita.com)
-    @creation-date November 22, 2000
-    @cvs-id $Id: user-revoke-2.tcl,v 1.2 2006/03/14 12:16:09 emmar Exp $
-} {
-    room_id:integer,notnull
-    party_id:integer,notnull
-}
-
-ad_require_permission $room_id chat_user_revoke
-
-chat_user_revoke $room_id $party_id
-
-ad_returnredirect "room?room_id=$room_id"
Index: openacs-4/packages/chat/www/user-revoke-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/user-revoke-oracle.xql,v
diff -u -N
--- openacs-4/packages/chat/www/user-revoke-oracle.xql	14 Mar 2006 12:16:09 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,13 +0,0 @@
-<?xml version="1.0"?>
-<queryset>
-<rdbms><type>oracle</type><version>8.1.6</version></rdbms>
-
-
-<fullquery name="get_party_name">
-  <querytext>
-      select acs_object.name(:party_id) from dual
-  </querytext>
-</fullquery>
-
-
-</queryset>
Index: openacs-4/packages/chat/www/user-revoke-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/user-revoke-postgresql.xql,v
diff -u -N
--- openacs-4/packages/chat/www/user-revoke-postgresql.xql	14 Mar 2006 12:16:09 -0000	1.1
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,11 +0,0 @@
-<?xml version="1.0"?>
-<queryset>
-<rdbms><type>postgresql</type><version>7.1</version></rdbms>
-
-<fullquery name="get_party_name">
-  <querytext>
-      select acs_object__name(:party_id) from dual
-  </querytext>
-</fullquery>
-
-</queryset>
Index: openacs-4/packages/chat/www/user-revoke.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/user-revoke.adp,v
diff -u -N
--- openacs-4/packages/chat/www/user-revoke.adp	14 Mar 2006 12:16:09 -0000	1.5
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,18 +0,0 @@
-<!--
-    Display confirmation.
-
-    @author David Dao (ddao@arsdigita.com)
-    @creation-date November 22, 2000
-    @cvs-id $Id: user-revoke.adp,v 1.5 2006/03/14 12:16:09 emmar Exp $
--->
-<master>
-<property name="context">@context_bar;noquote@</property>
-<property name="title">#chat.Confirm_revoke_user#</property>
-
-<form method=post action=user-revoke-2>
-<input type=hidden name=room_id value="@room_id@">
-<input type=hidden name=party_id value="@party_id@">
-#chat.Are_you_sure_you_want_to_revoke# <b>@party_pretty_name@</b> #chat.from# @pretty_name@?
-<p><input type=submit value="#chat.Revoke#">
-</form>
-
Index: openacs-4/packages/chat/www/user-revoke.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/Attic/user-revoke.tcl,v
diff -u -N
--- openacs-4/packages/chat/www/user-revoke.tcl	14 Mar 2006 12:16:09 -0000	1.3
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,22 +0,0 @@
-#/chat/www/user-revoke.tcl
-ad_page_contract {
-    
-    Display confirmation before remove chat user.
-
-    @author David Dao (ddao@arsdigita.com)
-    @creation-date November 22, 2000
-    @cvs-id $Id: user-revoke.tcl,v 1.3 2006/03/14 12:16:09 emmar Exp $
-} {
-    room_id:integer,notnull
-    party_id:integer,notnull
-}
-
-ad_require_permission $room_id chat_user_revoke
-
-set context_bar [list [list "room?room_id=$room_id" "[_ chat.Room_Information]"] "[_ chat.Revoke_user]"]
-
-set party_pretty_name [db_string get_party_name {} ]
-
-set pretty_name [chat_room_name $room_id]
-
-ad_return_template
Index: openacs-4/packages/chat/www/ajax/chat.js
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/ajax/Attic/chat.js,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/www/ajax/chat.js	24 Jun 2006 14:23:42 -0000	1.2
@@ -0,0 +1,250 @@
+// small cross browser function to get an HTTP object for making 
+// AJAX style http requests in the background 
+// -gustaf neumann Jan, 2006
+// exended for dotlrn-chat, message coloring and listing of users
+// -peter alberer March, 2006
+
+// global variables
+var msgcount = 0; // hack to overcome IE
+var dataConnections = new Object; // variable to find all the registered datasources
+// var inactivityTimeout = setTimeout(stopUpdates,300000);
+
+// helper function to get a new http request object
+function getHttpObject() {
+     var http_request = false;
+     if (window.XMLHttpRequest) { // Mozilla, Safari,...
+         http_request = new XMLHttpRequest();
+         if (http_request.overrideMimeType) {
+              http_request.overrideMimeType('text/xml');
+         }
+     } else if (window.ActiveXObject) { // IE
+         try {
+             http_request = new ActiveXObject("Msxml2.XMLHTTP");
+         } catch (e) {
+             try {
+                 http_request = new ActiveXObject("Microsoft.XMLHTTP");
+             } catch (e) {}
+         }
+     }
+     if (!http_request) {
+         alert('Cannot create an instance of XMLHTTP');
+     }
+   return http_request;
+}
+
+if (typeof DOMParser == "undefined") {
+   DOMParser = function () {}
+   DOMParser.prototype.parseFromString = function (str, contentType) {
+      if (typeof ActiveXObject != "undefined") {
+         var d = new ActiveXObject("MSXML.DomDocument");
+         d.loadXML(str);
+         return d;
+        }
+   }
+}
+
+// functions that handle the incoming xml/html data
+function messagesReceiver(node,doc,div) {
+    var tr, td, e, s;
+    var msgCount = 0;
+    for (var i = 0 ; i < node.childNodes.length ; i++) {
+        if (node.childNodes[i].nodeType == 3 ) {
+            // if this is a textnode, skip it
+            continue;
+        }
+        msgCount++;
+        p = doc.createElement('p');
+        p.className = 'line';
+        e = node.childNodes[i].getElementsByTagName('span');
+        span = doc.createElement('span');
+        span.innerHTML = decodeURIComponent(e[0].firstChild.nodeValue);
+        span.className = 'timestamp';
+        p.appendChild(span);
+        
+        span = doc.createElement('span');
+        s = e[1].firstChild.nodeValue;
+        span.innerHTML = decodeURIComponent(e[1].firstChild.nodeValue.replace(/\+/g,' '));
+        span.className = 'user';
+        p.appendChild(span);
+        
+        span = doc.createElement('span');
+        span.innerHTML = decodeURIComponent(e[2].firstChild.nodeValue.replace(/\+/g,' '));
+        span.className = 'message';
+        p.appendChild(span);
+        
+        div.appendChild(p);
+    }
+    if ( msgCount > 0 ) { 
+        frames['ichat'].window.scrollTo(0,div.offsetHeight);
+    }
+}
+
+function pushReceiver(content) {
+    updateReceiver(content);
+    var msgField = document.getElementById('chatMsg');
+    msgField.value = '';
+    msgField.disabled = false;
+    msgField.focus();
+}
+
+function updateReceiver(content) {
+    var xmlobject = (new DOMParser()).parseFromString(content, 'application/xhtml+xml');
+    var body = xmlobject.getElementsByTagName('body');
+    
+    for (var i = 0 ; i < body[0].childNodes.length ; i++) {
+        if (body[0].childNodes[i].nodeType == 3 ) {
+            // if this is a textnode, skip it
+            continue;
+        }
+        var attribute = body[0].childNodes[i].getAttribute('id');
+        switch (attribute) {
+            case "messages":
+                var messagesNode = body[0].childNodes[i];
+                if (messagesNode.hasChildNodes()) {
+                    var messagesDoc = frames['ichat'].document;
+                    var messagesDiv = frames['ichat'].document.getElementById('messages');
+                    messagesReceiver(messagesNode,messagesDoc,messagesDiv);
+                }                
+                break;
+            case "users":
+                var usersNode = body[0].childNodes[i].childNodes[0];
+                var usersDoc = frames['ichat-users'].document;
+                var usersTbody = frames['ichat-users'].document.getElementById('users').tBodies[0];
+                usersReceiver(usersNode,usersDoc,usersTbody);                
+                break;
+        }
+    }
+}
+
+function usersReceiver(node,doc,tbody) {
+    var tr, td, e, s, nbody;
+    nbody = doc.createElement('tbody');
+    for (var i = 0 ; i < node.childNodes.length ; i++) {
+        if (node.childNodes[i].nodeType == 3 ){
+            // if this is a textnode, skip it
+            continue;
+        }
+        tr = doc.createElement('tr');
+        e = node.childNodes[i].getElementsByTagName('TD');
+        
+        td = doc.createElement('td');
+        td.innerHTML = decodeURIComponent(e[0].firstChild.nodeValue.replace(/\+/g,' '));
+        td.className = 'user';
+        tr.appendChild(td);
+        
+        td = doc.createElement('td');
+        td.innerHTML = decodeURIComponent(e[1].firstChild.nodeValue.replace(/\+/g,' '));
+        td.className = 'timestamp';
+        tr.appendChild(td);   
+        
+        nbody.appendChild(tr);
+    }
+    tbody.parentNode.replaceChild(nbody,tbody);
+}
+
+function DataConnection() {};
+
+DataConnection.prototype = {
+    handler: null,
+    url: null,
+    connection: null,
+    busy: null,
+    autoConnect: null,
+    
+    httpSendCmd: function(url) {
+        // if (!this.connection) {
+            this.busy = true;
+            this.connection = getHttpObject();
+        // }
+        this.connection.open('GET', url + '&mc=' + msgcount++, true);
+        var self = this;
+        this.connection.onreadystatechange = function() {
+            self.httpReceiver(self);
+        }
+        this.connection.send('');
+    },
+    
+    httpReceiver: function(obj) {
+         if (obj.connection.readyState == 4) {
+            if (obj.connection.status == 200) {
+                obj.handler(obj.connection.responseText);
+                obj.busy = false;
+            } else {
+                clearInterval(updateInterval);
+                alert('Something wrong in HTTP request, status code = ' + obj.connection.status);
+            }
+        }       
+    }, 
+    
+    chatSendMsg: function(send_url) {
+        // if (inactivityTimeout) {
+        //     clearTimeout(inactivityTimeout);
+            // alert("Clearing inactivityTimeout");
+        // }
+        // if (!updateInterval) {
+            // alert("Rescheduling updateInterval");
+        //     updateInterval = setInterval(updateDataConnections,5000);
+        // }
+        if (this.busy) {
+            alert("chatSendMsg conflict! Maybe banned?");
+        }
+        var msgField = document.getElementById('chatMsg');
+        if (msgField.value == '') {
+            return;
+        }
+        msgField.disabled = true;
+        this.httpSendCmd(send_url + escape(msgField.value));
+        msgField.value = '#chat.sending_message#';
+        // alert("Reseting inactivityTimeout");
+        // inactivityTimeout = setTimeout(stopUpdates,300000);
+    },   
+    
+    updateBackground: function() {
+        //alert("binda = " + this);
+        if (this.busy) {
+            //alert("Message update function cannot run because the last connection is still busy!");
+            return;
+        } else {
+            this.httpSendCmd(this.url);
+        }
+    }
+}
+
+function registerDataConnection(handler,url,autoConnect) {
+    // var ds = new DataConnection(handler,url,autoConnect);
+    var ds = new DataConnection();
+    ds.handler = handler;
+    ds.url = url;
+    ds.autoConnect = autoConnect;
+    ds.busy = false;
+    dataConnections[url] = ds;
+    return ds;
+}
+
+function updateDataConnections() {
+    for (var ds in dataConnections) {
+        if (dataConnections[ds].autoConnect) {
+            // alert("updating " + dataConnections[ds].url);
+            dataConnections[ds].updateBackground();
+        }
+    }
+}
+
+function stopUpdates() {
+    // alert("Stopping all update operations");
+    clearInterval(updateInterval);
+    updateInterval = null;
+    clearTimeout(inactivityTimeout);
+    inactivityTimeout = null;
+}
+
+function startProc() {
+    document.getElementById('chatMsg').focus();
+    var messagesDiv = frames['ichat'].document.getElementById('messages');
+    if (messagesDiv) { 
+        frames['ichat'].window.scrollTo(0,messagesDiv.offsetHeight); 
+    }
+}
+
+window.onload = startProc;
+
Index: openacs-4/packages/chat/www/ajax/chat.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat/www/ajax/Attic/chat.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat/www/ajax/chat.tcl	24 Jun 2006 14:23:42 -0000	1.2
@@ -0,0 +1,82 @@
+ad_page_contract {
+  a tiny chat client
+
+  @author Gustaf Neumann (gustaf.neumann@wu-wien.ac.at)
+  @creation-date Jan 31, 2006
+  @cvs-id $Id: chat.tcl,v 1.2 2006/06/24 14:23:42 gustafn Exp $
+} -query {
+  m
+  id
+  s
+  {msg:optional,allhtml ""}
+}
+
+set ban_p [permission::permission_p -object_id $id -privilege "chat_ban"]
+if {$ban_p} {
+  ns_return 200 text/html "<HTML><BODY>\
+	<div id='messages'>[_ chat.You_dont_have_permission_room]</div>\
+	</BODY></HTML>"
+  ad_script_abort
+}
+
+set message_output ""
+set user_output "-"
+
+::chat::Chat c1 -volatile -chat_id $id -session_id $s
+
+switch -- $m {
+  add_msg {
+    # i see no reason, why this is limited to 200 characters.... GN
+    # do not allow messages longer than 200 characters
+    #if { [string length $msg] > 200 } {
+    #  set msg [string range $msg 0 200]
+    #}
+    # do not insert empty messages, if they managed to get here
+    if { $msg ne "" } {
+        set message_output [c1 add_msg $msg]
+        if { [c1 current_message_valid] } {
+            chat_message_post $id [c1 user_id] $msg 1
+        }
+    }
+  }
+  login - get_new - get_all {
+    set message_output [c1 $m]
+  }
+  get_updates {
+      set message_output [c1 get_new]
+      set user_output [c1 get_users]
+  }
+  get_users {
+    c1 encoder noencode
+    set user_output [c1 get_users]
+  }
+  default {ns_log error "--c unknown method $m called."} 
+}
+
+set output "
+<HTML>
+<style type='text/css'>
+#messages { 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 { width: 100%; 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>
+<body style='margin:0px; padding:5px;'>"
+
+if { $message_output ne "" } {
+    append output "<div id='messages'>$message_output</div>\n"
+}
+
+if { $user_output ne "-" } {
+    append output "<table id='users'><tbody>$user_output</tbody></table>\n"
+}
+
+append output "
+</body>
+</HTML>"
+
+ns_return 200 text/html $output
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 -N -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 -N -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 -N -r1.1 -r1.2
Binary files differ