Index: openacs-4/packages/chat-includelet/chat-includelet.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-includelet/chat-includelet.info,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat-includelet/chat-includelet.info	13 Aug 2008 23:48:28 -0000	1.1
@@ -0,0 +1,24 @@
+<?xml version="1.0"?>
+<!-- Generated by the OpenACS Package Manager -->
+
+<package key="chat-includelet" url="http://openacs.org/repository/apm/packages/chat-includelet" type="apm_service">
+    <package-name>Chat Includelet</package-name>
+    <pretty-plural>Chat Includelets</pretty-plural>
+    <initial-install-p>f</initial-install-p>
+    <singleton-p>f</singleton-p>
+    
+    <version name="1.0" url="http://openacs.org/repository/download/apm/chat-includelet-1.0.apm">
+        <owner url="http://opeancs.org">OpenACS</owner>
+        <release-date>2008-08-11</release-date>
+        <vendor url="http://openacs.org">OpenACS</vendor>
+
+        <provides url="chat-includelet" version="1.0"/>
+        <requires url="layout-manager" version="1.0"/>
+        <requires url="chat" version="5.0d6"/>
+
+        <callbacks>
+            <callback type="after-install"  proc="chat_includelet::install::package_install"/>
+        </callbacks>
+
+    </version>
+</package>
Index: openacs-4/packages/chat-includelet/catalog/chat-includelet.ca_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-includelet/catalog/chat-includelet.ca_ES.ISO-8859-1.xml,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat-includelet/catalog/chat-includelet.ca_ES.ISO-8859-1.xml	13 Aug 2008 23:48:28 -0000	1.1
@@ -0,0 +1,8 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<message_catalog package_key="chat-includelet"  locale="ca_ES" charset="ISO-8859-1">
+
+  <msg key="Add_a_Chat_Item">Afegeix una sala de xat</msg>
+  <msg key="admin_pretty_name">Administraci� de xat</msg>
+  <msg key="Manage_Chat">Administra xat</msg>
+  <msg key="pretty_name">Xat</msg>
+</message_catalog>
Index: openacs-4/packages/chat-includelet/catalog/chat-includelet.de_DE.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-includelet/catalog/chat-includelet.de_DE.ISO-8859-1.xml,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat-includelet/catalog/chat-includelet.de_DE.ISO-8859-1.xml	13 Aug 2008 23:48:28 -0000	1.1
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<message_catalog package_key="chat-includelet"  locale="de_DE" charset="ISO-8859-1">
+
+  <msg key="Add_a_Chat_Item">Add a chat room</msg>
+  <msg key="admin_pretty_name">Chat administration</msg>
+  <msg key="html_mode">HTML mode</msg>
+  <msg key="Manage_Chat">Manage chat</msg>
+  <msg key="pretty_name">Chat</msg>
+  <msg key="Rooms_admin">Rooms Administration</msg>
+</message_catalog>
Index: openacs-4/packages/chat-includelet/catalog/chat-includelet.en_US.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-includelet/catalog/chat-includelet.en_US.ISO-8859-1.xml,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat-includelet/catalog/chat-includelet.en_US.ISO-8859-1.xml	13 Aug 2008 23:48:28 -0000	1.1
@@ -0,0 +1,12 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<message_catalog package_key="chat-includelet"  locale="en_US" charset="ISO-8859-1">
+
+  <msg key="Add_a_Chat_Item">Add a chat room</msg>
+  <msg key="admin_pretty_name">Chat administration</msg>
+  <msg key="admin_description">Displays chat administration includelet</msg>
+  <msg key="description">Displays chat includelet</msg>
+  <msg key="html_mode">HTML mode</msg>
+  <msg key="Manage_Chat">Manage chat</msg>
+  <msg key="pretty_name">Chat</msg>
+  <msg key="Rooms_admin">Rooms Administration</msg>
+</message_catalog>
Index: openacs-4/packages/chat-includelet/catalog/chat-includelet.es_ES.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-includelet/catalog/chat-includelet.es_ES.ISO-8859-1.xml,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat-includelet/catalog/chat-includelet.es_ES.ISO-8859-1.xml	13 Aug 2008 23:48:28 -0000	1.1
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<message_catalog package_key="chat-includelet"  locale="es_ES" charset="ISO-8859-1">
+
+  <msg key="Add_a_Chat_Item">A�adir una sala</msg>
+  <msg key="admin_pretty_name">Administraci�n de chat</msg>
+  <msg key="html_mode">Modo HTML</msg>
+  <msg key="Manage_Chat">Gestionar sala</msg>
+  <msg key="pretty_name">Chat</msg>
+  <msg key="Rooms_admin">Administraci�n de salas</msg>
+</message_catalog>
Index: openacs-4/packages/chat-includelet/catalog/chat-includelet.pt_BR.ISO-8859-1.xml
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-includelet/catalog/chat-includelet.pt_BR.ISO-8859-1.xml,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat-includelet/catalog/chat-includelet.pt_BR.ISO-8859-1.xml	13 Aug 2008 23:48:28 -0000	1.1
@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="ISO-8859-1"?>
+<message_catalog package_key="chat-includelet"  locale="pt_BR" charset="ISO-8859-1">
+
+  <msg key="Add_a_Chat_Item">Adicionar uma sala de chat</msg>
+  <msg key="admin_pretty_name">Administra��o do chat</msg>
+  <msg key="html_mode">Modo HTML</msg>
+  <msg key="Manage_Chat">Gerenciar chat</msg>
+  <msg key="pretty_name">Chat</msg>
+  <msg key="Rooms_admin">Administra��o das Salas</msg>
+</message_catalog>
Index: openacs-4/packages/chat-includelet/lib/chat-admin-includelet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-includelet/lib/chat-admin-includelet.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat-includelet/lib/chat-admin-includelet.adp	13 Aug 2008 23:48:28 -0000	1.1
@@ -0,0 +1,4 @@
+<ul>
+  <li><a href="@url@" title="#chat-includelet.Rooms_admin#">#chat-includelet.Rooms_admin#</a></li>
+  <li><a href="@url@room-edit" title="#chat-includelet.Add_a_Chat_Item#">#chat-includelet.Add_a_Chat_Item#</a></li>
+</ul>
Index: openacs-4/packages/chat-includelet/lib/chat-admin-includelet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-includelet/lib/chat-admin-includelet.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat-includelet/lib/chat-admin-includelet.tcl	13 Aug 2008 23:48:28 -0000	1.1
@@ -0,0 +1,3 @@
+set user_id [ad_conn user_id]
+set url [site_node::get_url_from_object_id -object_id $package_id]
+ad_return_template 
Index: openacs-4/packages/chat-includelet/lib/chat-includelet-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-includelet/lib/chat-includelet-oracle.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat-includelet/lib/chat-includelet-oracle.xql	13 Aug 2008 23:48:28 -0000	1.1
@@ -0,0 +1,28 @@
+<?xml version="1.0"?>
+     
+<queryset>
+<rdbms><type>oracle</type><version>8.1.6</version></rdbms>
+
+<fullquery name="rooms_list">
+  <querytext>
+    select rm.room_id, 
+           rm.pretty_name as pretty_name, 
+           rm.description as description, 
+           rm.moderated_p, 
+           rm.active_p, 
+           rm.archive_p,
+           acs_permission.permission_p(room_id, :user_id, 'chat_room_admin') as admin_p,
+           acs_permission.permission_p(room_id, :user_id, 'chat_read') as user_p,           
+           (select site_node.url(site_nodes.node_id)
+                   from site_nodes
+                   where site_nodes.object_id = obj.context_id) as base_url
+    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-includelet/lib/chat-includelet-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-includelet/lib/chat-includelet-postgresql.xql,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat-includelet/lib/chat-includelet-postgresql.xql	13 Aug 2008 23:48:28 -0000	1.1
@@ -0,0 +1,28 @@
+<?xml version="1.0"?>
+     
+<queryset>
+<rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="rooms_list">
+  <querytext>
+    select rm.room_id, 
+           rm.pretty_name as pretty_name, 
+           rm.description as description, 
+           rm.moderated_p, 
+           rm.active_p, 
+           rm.archive_p,
+           acs_permission__permission_p(room_id, :user_id, 'chat_room_admin') as admin_p,
+           acs_permission__permission_p(room_id, :user_id, 'chat_read') as user_p,           
+           (select site_node__url(site_nodes.node_id)
+                   from site_nodes
+                   where site_nodes.object_id = obj.context_id) as base_url
+    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-includelet/lib/chat-includelet.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-includelet/lib/chat-includelet.adp,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat-includelet/lib/chat-includelet.adp	13 Aug 2008 23:48:28 -0000	1.1
@@ -0,0 +1,27 @@
+<if @rooms:rowcount@ eq 0 or @num_rooms@ eq 0>
+<p><i>#chat.There_are_no_rooms_available#</i></p>
+</if>
+<else>
+  <table border=0>
+    <multiple name=rooms>
+    <if @rooms.can_see_p@ eq 1>
+      <tr>
+        <td valign=top><a href="@rooms.base_url@room-enter?room_id=@rooms.room_id@&client=@default_mode@">@rooms.pretty_name@</a></td>
+        <td valign=top>
+            [&nbsp;<a href="@rooms.base_url@room-enter?room_id=@rooms.room_id@&client=html">#chat-includelet.html_mode#</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>
+        <td valign=top>
+            <I>@rooms.description@</I>
+        </td>
+      </tr>
+    </if>
+    </multiple>
+  </table>
+</else>
Index: openacs-4/packages/chat-includelet/lib/chat-includelet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-includelet/lib/chat-includelet.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat-includelet/lib/chat-includelet.tcl	13 Aug 2008 23:48:28 -0000	1.1
@@ -0,0 +1,17 @@
+set chat_url "[ad_conn package_url]/chat/"
+
+set context [list]
+set user_id [ad_conn user_id]
+set room_create_p [ad_permission_p $user_id chat_room_create]
+set default_mode [ad_parameter DefaultClient chat "ajax"]
+set num_rooms 0
+
+db_multirow -extend { can_see_p } rooms rooms_list {} {
+	set can_see_p 0
+	if {($active_p eq "t" && $user_p eq "t") || ($admin_p eq "t")} {
+		set can_see_p 1
+		set num_rooms [expr $num_rooms + 1]
+	}   
+}
+
+ad_return_template
Index: openacs-4/packages/chat-includelet/tcl/apm-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-includelet/tcl/apm-callback-procs.tcl,v
diff -u -N
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat-includelet/tcl/apm-callback-procs.tcl	13 Aug 2008 23:48:28 -0000	1.1
@@ -0,0 +1,42 @@
+ad_library {
+
+    Chat Includelet Install library
+    
+    Procedures that deal with installing, instantiating, mounting.
+
+    @creation-date 2008-08-13
+    @author Don Baccus <dhogaza@pacifier.com>
+    @cvs-id 
+}
+
+namespace eval chat_includelet::install {}
+
+ad_proc -private chat_includelet::install::package_install {} {
+    Package installation callback proc
+} {
+
+    # Admin includelet
+    layout::includelet::new \
+        -name chat_admin_includelet \
+        -description #chat-includelet.admin_description# \
+        -title #chat-includelet.admin_pretty_name# \
+        -application chat \
+        -template /packages/chat-includelet/lib/chat-admin-includelet \
+        -required_privilege admin
+
+    # User includelet
+    layout::includelet::new \
+        -name chat_includelet \
+        -description #chat-includelet.description# \
+        -title #chat-includelet.pretty_name# \
+        -application chat \
+        -template /packages/chat-includelet/lib/chat-includelet
+}
+
+ad_proc -private chat_includelet::install::package_uninstall {} {
+    Package uninstallation callback proc
+} {
+    layout::includelet::delete -name chat_includelet
+    layout::includelet::delete -name chat_admin_includelet
+}
+