Index: openacs-4/packages/forums/lib/message/row.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/row.adp,v diff -u -r1.21 -r1.21.2.1 --- openacs-4/packages/forums/lib/message/row.adp 3 Jul 2015 17:36:38 -0000 1.21 +++ openacs-4/packages/forums/lib/message/row.adp 11 Oct 2015 18:13:34 -0000 1.21.2.1 @@ -1,11 +1,11 @@ -
+
#forums.collapse#
- - + +
@message.number@: @message.subject@ @@ -23,7 +23,7 @@
#forums.Posted_by# - @message.screen_name@ + @message.screen_name@ @message.user_name@ #forums.on#
@@ -39,17 +39,17 @@
- - + +
    - -
  • #forums.reply#
  • + +
  • #forums.reply#
  • - +
  • #forums.forward#
  • - +
  • #forums.edit#
  • #forums.delete#
  • @@ -59,11 +59,11 @@
  • #forums.Move_to_other_thread#
  • - - + +
  • #forums.approve#
  • - +
  • #forums.reject#
  • Index: openacs-4/packages/forums/lib/message/row.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/message/row.tcl,v diff -u -r1.12.2.2 -r1.12.2.3 --- openacs-4/packages/forums/lib/message/row.tcl 10 Oct 2015 17:57:53 -0000 1.12.2.2 +++ openacs-4/packages/forums/lib/message/row.tcl 11 Oct 2015 18:13:35 -0000 1.12.2.3 @@ -1,32 +1,35 @@ -ad_page_contract { +ad_include_contract { - a message chunk to be included in a table listing of messages + A message chunk to be included in a table listing of messages @author yon (yon@openforce.net) @author arjun (arjun@openforce.net) @creation-date 2002-06-02 @cvs-id $Id$ +} { + {rownum:integer 1} + {presentation_type:word ""} + {forum_moderated_p:boolean 0} + {moderate_p:boolean 0} + {preview:boolean 0} + {alt_template:token ""} + {permissions} + {message} } set viewer_id [ad_conn user_id] set useScreenNameP [parameter::get -parameter "UseScreenNameP" -default 0] -if {(![info exists rownum] || $rownum eq "")} { - set rownum 1 -} - -if {(![info exists presentation_type] || $presentation_type eq "")} { - set presentation_type "" -} - -#set message(content) [::util::disk_cache_eval \ +if {0 && [info exists message(message_id)]} { + set message(content) [::util::disk_cache_eval \ -call [list ad_html_text_convert -from $message(format) -to text/html -- $message(content)] \ -key fragments \ -id $message(message_id)] -set message(content) [ad_html_text_convert -from $message(format) -to text/html -- $message(content)] +} else { + set message(content) [ad_html_text_convert -from $message(format) -to text/html -- $message(content)] +} - if {$useScreenNameP} { acs_user::get -user_id $viewer_id -array user_info set message(screen_name) $user_info(screen_name) @@ -35,21 +38,14 @@ } - # convert emoticons to images if the parameter is set if { [string is true [parameter::get -parameter DisplayEmoticonsAsImagesP -default 0]] } { set message(content) [forum::format::emoticons -content $message(content)] } -# JCD: display subject only if changed from the root subject -if {![info exists root_subject]} { - set display_subject_p 1 -} else { - regsub {^(Response to |\s*Re:\s*)*} $message(subject) {} subject - set display_subject_p [expr {$subject ne $root_subject }] -} +set display_subject_p 1 -if {([info exists alt_template] && $alt_template ne "")} { +if {$alt_template ne ""} { ad_return_template $alt_template } if {![info exists message(message_id)]} { @@ -62,7 +58,7 @@ set allow_edit_own_p [parameter::get -parameter AllowUsersToEditOwnPostsP -default 0] set own_p [expr {$message(user_id) eq $viewer_id && $allow_edit_own_p}] -if { [info exists preview] } { +if { $preview } { set any_action_p 0 } else { set notflat_p [expr {$presentation_type ne "flat"}]