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
--- openacs-4/packages/chat/lib/transcripts.xql 24 Jun 2006 14:23:41 -0000 1.2
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,13 +0,0 @@
-
-
-
-
-
- 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
-
-
-
-
Index: openacs-4/packages/faq-portlet/www/faq-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/faq-portlet/www/faq-portlet.tcl,v
diff -u -N -r1.19 -r1.19.2.1
--- openacs-4/packages/faq-portlet/www/faq-portlet.tcl 7 Aug 2017 23:48:11 -0000 1.19
+++ openacs-4/packages/faq-portlet/www/faq-portlet.tcl 16 Feb 2019 09:33:45 -0000 1.19.2.1
@@ -19,8 +19,8 @@
ad_page_contract {
The logic for the faq portlet.
- @creation-user Arjun Sanyal (arjun@openforce.net)
- @version $Id$
+ @author Arjun Sanyal (arjun@openforce.net)
+ @cvs-id $Id$
} -query {
}
@@ -40,7 +40,22 @@
}
}
-db_multirow -extend { faq_url } faqs select_faqs {} {
+db_multirow -extend { faq_url parent_name url } faqs select_faqs [subst {
+ select f.faq_id,
+ f.faq_name,
+ o.context_id as package_id
+ from faqs f,
+ acs_objects o
+ where f.faq_id = o.object_id
+ and not f.disabled_p
+ and o.object_id in ([join $list_of_package_ids ", "])
+ order by lower(faq_name)
+}] {
+ set node [site_node::get_from_object_id -object_id $package_id]
+ set url [dict get $node url]
+ set parent_node [site_node::get -node_id [dict get $node parent_id]]
+ set parent_name [acs_object_name [dict get $parent_node object_id]]
+
set faq_url [export_vars -base "${url}one-faq" {faq_id}]
}
Index: openacs-4/packages/general-comments/tcl/general-comments-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/tcl/general-comments-procs-oracle.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/general-comments/tcl/general-comments-procs-oracle.xql 16 Feb 2019 09:33:45 -0000 1.10.2.2
@@ -0,0 +1,37 @@
+
+
+
+ oracle8.1.6
+
+
+
+
+ begin
+ :1 := acs_message.new (
+ message_id => :comment_id,
+ title => :title,
+ mime_type => :comment_mime_type,
+ data => empty_blob(),
+ context_id => :context_id,
+ creation_user => :user_id,
+ creation_ip => :creation_ip,
+ is_live => :is_live,
+ rfc822_id => :rfc822_id
+ );
+ end;
+
+
+
+
+
+
+
+ update cr_revisions
+ set content = empty_blob()
+ where revision_id = :revision_id
+ returning content into :1
+
+
+
+
+
Index: openacs-4/packages/general-comments/tcl/general-comments-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/tcl/general-comments-procs-postgresql.xql,v
diff -u -N
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/general-comments/tcl/general-comments-procs-postgresql.xql 16 Feb 2019 09:33:45 -0000 1.11.2.2
@@ -0,0 +1,39 @@
+
+
+
+ postgresql7.1
+
+
+
+ select acs_message__new (
+ :comment_id, -- 1 p_message_id
+ NULL, -- 2 p_reply_to
+ current_timestamp, -- 3 p_sent_date
+ NULL, -- 4 p_sender
+ :rfc822_id, -- 5 p_rfc822_id
+ :title, -- 6 p_title
+ NULL, -- 7 p_description
+ :comment_mime_type, -- 8 p_mime_type
+ NULL, -- 9 p_text
+ NULL, -- empty_blob(), -- 10 p_data
+ -4, -- 11 p_parent_id
+ :context_id, -- 12 p_context_id
+ :user_id, -- 13 p_creation_user
+ :creation_ip, -- 14 p_creation_ip
+ 'acs_message', -- 15 p_object_type
+ :is_live -- 16 p_is_live
+ )
+
+
+
+
+
+
+ update cr_revisions
+ set content = :content
+ where revision_id = :revision_id
+
+
+
+
+