Index: openacs-4/packages/forums/lib/message/post-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/post-oracle.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/forums/lib/message/post-oracle.xql	15 Jun 2007 12:06:33 -0000	1.2
+++ openacs-4/packages/forums/lib/message/post-oracle.xql	9 Nov 2017 17:28:22 -0000	1.3
@@ -2,13 +2,6 @@
 <queryset>
     <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
 
-    <fullquery name="select_date">
-        <querytext>
-          select to_char(sysdate, 'YYYY-MM-DD HH24:MI:SS') 
-          from dual
-        </querytext>
-    </fullquery>
-
     <fullquery name="forums_reading_info__remove_msg">
         <querytext>
 	begin
@@ -17,5 +10,4 @@
         </querytext>
     </fullquery>
 
-
 </queryset>
Index: openacs-4/packages/forums/lib/message/post-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/post-postgresql.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/forums/lib/message/post-postgresql.xql	15 Jun 2007 12:06:33 -0000	1.2
+++ openacs-4/packages/forums/lib/message/post-postgresql.xql	9 Nov 2017 17:28:22 -0000	1.3
@@ -3,12 +3,6 @@
 
     <rdbms><type>postgresql</type><version>7.1</version></rdbms>
 
-    <fullquery name="select_date">
-        <querytext>
-          select to_char(current_timestamp, 'YYYY-MM-DD HH24:MI:SS') 
-        </querytext>
-    </fullquery>
-
     <fullquery name="forums_reading_info__remove_msg">
         <querytext>
         select forums_reading_info__remove_msg (
@@ -17,6 +11,4 @@
         </querytext>
     </fullquery>
 
-
-
 </queryset>
Index: openacs-4/packages/forums/lib/message/post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/post.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/forums/lib/message/post.tcl	27 Sep 2017 11:07:52 -0000	1.24
+++ openacs-4/packages/forums/lib/message/post.tcl	9 Nov 2017 17:28:22 -0000	1.25
@@ -9,7 +9,9 @@
 }
 
 set user_id [ad_conn user_id]
-set screen_name [db_string select_screen_name { select screen_name from users where user_id = :user_id}]
+acs_user::get -user_id $user_id -array user
+set screen_name $user(screen_name)
+
 set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
 set pvt_home [ad_pvt_home]
 
@@ -91,7 +93,6 @@
         ##############################
         # Form initialisation
         #
-        set message_id [db_nextval acs_object_id_seq]
         if {$parent_id eq ""} {
             set parent_id ""
         } else {
@@ -128,10 +129,7 @@
             set action preview
         }
 
-        set displayed_user_id [ad_decode \
-                                   [expr {$anonymous_allowed_p && $anonymous_p}] \
-                                   0 $user_id \
-                                   0]
+        set displayed_user_id [expr {$anonymous_allowed_p && $anonymous_p ? 0 : $user_id}]
 
         if {$action eq "preview"} {
             
@@ -147,18 +145,19 @@
             set message(subject) $subject
             set message(content) $content
             set message(user_id) $displayed_user_id
-            set message(user_name) [db_string select_name {}]
+            set message(user_name) $user(name)
             set message(screen_name) $screen_name
-            set message(posting_date_ansi) [db_string select_date {}]
+            set message(posting_date_ansi) [clock format [clock seconds] -format "%Y-%m-%d %H:%M:%S"]
             set message(posting_date_pretty) [lc_time_fmt $message(posting_date_ansi) "%x %X"]
             
             # Let's check if this person is subscribed to the forum
             # in case we might want to subscribe them to the thread
             if {$parent_id eq ""} {
-                if {![empty_string_p [notification::request::get_request_id \
-                                          -type_id [notification::type::get_type_id -short_name forums_forum_notif] \
-                                          -object_id $forum_id \
-                                          -user_id [ad_conn user_id]]]} {
+                if {[notification::request::get_request_id \
+                         -type_id [notification::type::get_type_id \
+                                       -short_name forums_forum_notif] \
+                         -object_id $forum_id \
+                         -user_id   $user_id] ne ""} {
                     set forum_notification_p 1
                 } else {
                     set forum_notification_p 0
@@ -239,7 +238,7 @@
     }
 
 
-if {([info exists alt_template] && $alt_template ne "")} {
+if {[info exists alt_template] && $alt_template ne ""} {
     ad_return_template $alt_template
 }
 
Fisheye: Tag 1.3 refers to a dead (removed) revision in file `openacs-4/packages/forums/lib/message/post.xql'.
Fisheye: No comparison available.  Pass `N' to diff?