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.59.2.15 -r1.59.2.16 --- openacs-4/packages/forums/tcl/messages-procs.tcl 12 May 2020 14:30:15 -0000 1.59.2.15 +++ openacs-4/packages/forums/tcl/messages-procs.tcl 12 May 2020 14:39:57 -0000 1.59.2.16 @@ -98,16 +98,17 @@ set message_url ${url}message-view?message_id=$message(root_message_id) set forum_url ${url}forum-view?forum_id=$message(forum_id) - set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0] - 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_host_administrator]] - } - set notif_user $user_id + # This computations are not used... just commented for now. + # set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0] + # 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_host_administrator]] + # } + # set notif_user $user_id set attachments [attachments::get_attachments -object_id $message(message_id)]