[Rt-commit] r6527 - in rt/branches/3.7-EXPERIMENTAL: .

[ruz at bestpractical.com]

Author: ruz
Date: Sun Nov 26 17:46:32 2006
New Revision: 6527

Modified:
   rt/branches/3.7-EXPERIMENTAL/   (props changed)
   rt/branches/3.7-EXPERIMENTAL/html/Ticket/Elements/ShowMessageStanza

Log:
 r4184 at cubic-pc:  cubic | 2006-11-27 01:49:51 +0300
  r3517 at cubic-pc:  cubic | 2006-06-30 18:16:05 +0400
  * run callbacks and output text once per paragraph
    instead of per line
 


Modified: rt/branches/3.7-EXPERIMENTAL/html/Ticket/Elements/ShowMessageStanza
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL/html/Ticket/Elements/ShowMessageStanza	(original)
+++ rt/branches/3.7-EXPERIMENTAL/html/Ticket/Elements/ShowMessageStanza	Sun Nov 26 17:46:32 2006
@@ -43,21 +43,23 @@
 %# those contributions and any derivatives thereof.
 %# 
 %# END BPS TAGGED BLOCK }}}
-% if (ref($Message)) {
+% if ( ref $Message ) {
 <div class="message-stanza-depth-<% $Depth %>">
 <%perl>
+my $para = '';
 foreach my $stanza (@$Message) {
     if ( ref $stanza eq "ARRAY" ) {
+        $print_content->( \$para ); $para = '';
         $m->comp( 'ShowMessageStanza',
                   Depth   => $Depth + 1,
                   Transaction => $Transaction,
                   Message => $stanza );
     }
     elsif ( ref $stanza eq "HASH" ) {
-        my $content = $stanza->{raw};
-        $print_content->( \$content );
+        $para .= $stanza->{raw};
     }
 }
+$print_content->( \$para ) if length $para;
 </%perl>
 </div>
 % } else {