Index: openacs-4/packages/chat-portlet/www/chat-portlet-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-portlet/www/chat-portlet-oracle.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat-portlet/www/chat-portlet-oracle.xql 1 Oct 2018 17:56:56 -0000 1.4
@@ -0,0 +1,49 @@
+
+
+
+oracle8.1.6
+
+
+
+ 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 IN ($sep_package_ids)
+ and rm.active_p = 't'
+ order by rm.pretty_name
+
+
+
+
+
+ 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 rm.active_p = 't'
+ order by rm.pretty_name
+
+
+
+
+
Index: openacs-4/packages/chat-portlet/www/chat-portlet-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-portlet/www/chat-portlet-postgresql.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/chat-portlet/www/chat-portlet-postgresql.xql 1 Oct 2018 17:56:56 -0000 1.6
@@ -0,0 +1,49 @@
+
+
+
+postgresql7.1
+
+
+
+ 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 IN ($sep_package_ids)
+ and rm.active_p = 't'
+ order by rm.pretty_name
+
+
+
+
+
+ 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 rm.active_p = 't'
+ order by rm.pretty_name
+
+
+
+
+
Index: openacs-4/packages/chat-portlet/www/chat-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-portlet/www/chat-portlet.tcl,v
diff -u -N -r1.13 -r1.14
--- openacs-4/packages/chat-portlet/www/chat-portlet.tcl 1 Oct 2018 15:19:24 -0000 1.13
+++ openacs-4/packages/chat-portlet/www/chat-portlet.tcl 1 Oct 2018 17:56:56 -0000 1.14
@@ -37,29 +37,19 @@
set user_id [ad_conn user_id]
set community_id [dotlrn_community::get_community_id]
set room_create_p [permission::permission_p -object_id $user_id -privilege chat_room_create]
+set num_rooms 0
if { $community_id eq 0 } {
set query_name "rooms_list_all"
} else {
set query_name "rooms_list"
}
-db_multirow -extend {
- can_see_p
- admin_p
- user_p
- base_url
- room_enter_url
-} rooms $query_name {} {
- set admin_p [permission::permission_p \
- -object_id $room_id \
- -party_id $user_id \
- -privilege "chat_room_admin"]
- set user_p [permission::permission_p \
- -object_id $room_id \
- -party_id $user_id \
- -privilege "chat_read"]
- set base_url [lindex [site_node::get_url_from_object_id -object_id $context_id] 0]
- set can_see_p [expr { $user_p || $admin_p }]
+db_multirow -extend { can_see_p room_enter_url } rooms $query_name {} {
+ set can_see_p 0
+ if { $user_p || $admin_p } {
+ set can_see_p 1
+ incr num_rooms
+ }
set room_enter_url [export_vars -base "${base_url}room-enter" {room_id}]
}
@@ -77,8 +67,4 @@
}
}
-# Local variables:
-# mode: tcl
-# tcl-indent-level: 4
-# indent-tabs-mode: nil
-# End:
+ad_return_template
Index: openacs-4/packages/chat-portlet/www/chat-portlet.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/chat-portlet/www/Attic/chat-portlet.xql,v
diff -u -N
--- openacs-4/packages/chat-portlet/www/chat-portlet.xql 1 Oct 2018 15:10:14 -0000 1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,38 +0,0 @@
-
-
-
-
-
- select rm.room_id,
- rm.pretty_name as pretty_name,
- rm.description as description,
- rm.moderated_p,
- rm.active_p,
- rm.archive_p,
- obj.context_id
- from chat_rooms rm,
- acs_objects obj
- where rm.room_id = obj.object_id
- and obj.context_id IN ($sep_package_ids)
- and rm.active_p = 't'
- order by rm.pretty_name
-
-
-
-
-
- select rm.room_id,
- rm.pretty_name as pretty_name,
- rm.description as description,
- rm.moderated_p,
- rm.active_p,
- rm.archive_p,
- obj.context_id
- from chat_rooms rm,
- acs_objects obj
- where rm.room_id = obj.object_id and rm.active_p = 't'
- order by rm.pretty_name
-
-
-
-