Index: openacs-4/packages/forums/tcl/messages-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs.tcl,v
diff -u -r1.41 -r1.42
--- openacs-4/packages/forums/tcl/messages-procs.tcl 20 Sep 2008 12:10:28 -0000 1.41
+++ openacs-4/packages/forums/tcl/messages-procs.tcl 2 Apr 2009 14:14:54 -0000 1.42
@@ -85,10 +85,10 @@
set url "[ad_url][db_string select_forums_package_url {}]"
set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0]
- if {($useScreenNameP == 0) && ($user_id != 0)} {
- if {$user_id eq ""} {
- set user_id [ad_conn user_id]
- }
+ if {($useScreenNameP eq 0) && ($user_id ne 0)} {
+ if { $user_id eq "" } {
+ set user_id $message(user_id)
+ }
} else {
set user_id [party::get_by_email -email [ad_parameter -package_id [ad_acs_kernel_id] HostAdministrator]]
}
@@ -100,20 +100,20 @@
set message_html [ad_html_text_convert -from $message(format) -to text/html -- $message(content)]
set html_version ""
- append html_version "Forum: $message(forum_name)
\n"
- append html_version "Thread: $message(root_subject)
\n"
+ append html_version "#forums.Forum#: $message(forum_name)
\n"
+ append html_version "#forums.Thread#: $message(root_subject)
\n"
if {$useScreenNameP == 0} {
- append html_version "Author: $message(user_name)
\n"
+ append html_version "#forums.Author#: $message(user_name)
\n"
} else {
- append html_version "Author: $message(screen_name)
\n"
+ append html_version "#forums.Author#: $message(screen_name)
\n"
}
- append html_version "Posted: $message(posting_date)
"
+ append html_version "#forums.Posted#: $message(posting_date)
"
append html_version "\n
\n"
append html_version $message_html
append html_version "
" if {[llength $attachments] > 0} { - append html_version "Attachments: + append html_version "#forums.Attachments#: