[Rt-commit] r2763 - in rt/branches/QUEBEC-EXPERIMENTAL: . html/Elements/CollectionAsTable

[jesse at bestpractical.com]

Author: jesse
Date: Sun Apr 17 23:14:39 2005
New Revision: 2763

Modified:
   rt/branches/QUEBEC-EXPERIMENTAL/   (props changed)
   rt/branches/QUEBEC-EXPERIMENTAL/html/Elements/CollectionAsTable/Row
Log:
 r13217 at hualien:  jesse | 2005-04-17 23:08:56 -0400
  r13194 at hualien:  jesse | 2005-04-17 21:31:40 -0400
  RT-Ticket: 6522
  RT-Status: resolved
  RT-Update: correspond
  
  * Newlines in CustomFields are now displayed in TicketList results
  
  
 


Modified: rt/branches/QUEBEC-EXPERIMENTAL/html/Elements/CollectionAsTable/Row
==============================================================================
--- rt/branches/QUEBEC-EXPERIMENTAL/html/Elements/CollectionAsTable/Row	(original)
+++ rt/branches/QUEBEC-EXPERIMENTAL/html/Elements/CollectionAsTable/Row	Sun Apr 17 23:14:39 2005
@@ -80,23 +80,26 @@
                 Name => $col,
                 Attr => 'value'
             );
+            my @out;
 
             if ( $value && ref($value) ) {
 
                 # All HTML snippets are returned by the callback function
                 # as scalar references.  Data fetched from the objects are
                 # plain scalars, and needs to be escaped properly.
-                $m->out(
+                @out =
                     map {
                         ref($_) ? $$_ : $m->interp->apply_escapes( $_ => 'h' )
                       } &{$value}( $record, $i )
-                );
+                ;
             }
             else {
 
                 # Simple value; just escape it.
-                $m->out( $m->interp->apply_escapes( $value => 'h' ) );
+                @out = $m->interp->apply_escapes( $value => 'h' );
             }
+            s/\n/<br>/gs for @out;
+            $m->out( @out );
         }
         else {
             $m->out($subcol);