[Rt-commit] [svn] r1516 - in rt/branches/3.3-TESTING: . html/Ticket/Elements

[jesse at pallas.eruditorum.org]

Author: jesse
Date: Sun Sep 19 21:02:45 2004
New Revision: 1516

Modified:
   rt/branches/3.3-TESTING/   (props changed)
   rt/branches/3.3-TESTING/html/Ticket/Elements/ShowMessageHeaders
Log:
 r10284 at tinbook (orig r1498):  leira | 2004-09-16T22:28:20.860968Z
 Add another callback that passes parsed headers.
 
 Useful for MakeClicky, among other things.
 


Modified: rt/branches/3.3-TESTING/html/Ticket/Elements/ShowMessageHeaders
==============================================================================
--- rt/branches/3.3-TESTING/html/Ticket/Elements/ShowMessageHeaders	(original)
+++ rt/branches/3.3-TESTING/html/Ticket/Elements/ShowMessageHeaders	Sun Sep 19 21:02:45 2004
@@ -49,7 +49,7 @@
 % next unless ($display_headers{'_all'} || $display_headers{lc($header->{'Tag'})});
 <tr>
 <td align="right" class="message-header-key"><%$header->{'Tag'}%>:</td>
-<td class="message-header-value"><%$header->{'Value'}%></td>
+<td class="message-header-value"><%$header->{'Value'} | n%></td>
 </tr>
 % }
 </table>
@@ -57,6 +57,9 @@
 my $content = $Headers;
 $m->comp('/Elements/Callback', content => \$content, %ARGS);
 
+# apply html escaping on the original content
+# we'll display the value without escaping later (for MakeClicky et al.)
+$content = $m->interp->apply_escapes($content, 'h');
 
 my @lines = split (/\n/,$content);
 my $in_header = 0;
@@ -70,13 +73,13 @@
 
         push (@headers, { Tag => $_, Value => ''} ); 
     }
-
 }
 
 my %display_headers;
 
 map { $display_headers{lc($_)} = 1 } @$DisplayHeaders;
 
+$m->comp('/Elements/Callback', _CallbackName => 'Headers', content => \$content, headers => \@headers, display_headers => \%display_headers, %ARGS);
 
 </%INIT>
 <%ARGS>