[Rt-commit] r13613 - in rt/3.8/trunk: . share/html/Ticket/Elements

[kyoki at bestpractical.com]

Author: kyoki
Date: Thu Jun 26 14:59:25 2008
New Revision: 13613

Modified:
   rt/3.8/trunk/   (props changed)
   rt/3.8/trunk/lib/RT/Config.pm
   rt/3.8/trunk/share/html/Ticket/Elements/ShowMessageStanza

Log:
 r23380 at nyx:  kyoki | 2008-06-26 14:59:34 -0400
 RT-Ticket: 8374
 RT-Status: Resolved
 RT-Update: Correspond
 users now have the option of displaying messages with fixed-width font, although it's not a global option. thanks Roderick for the patch.


Modified: rt/3.8/trunk/lib/RT/Config.pm
==============================================================================
--- rt/3.8/trunk/lib/RT/Config.pm	(original)
+++ rt/3.8/trunk/lib/RT/Config.pm	Thu Jun 26 14:59:25 2008
@@ -164,9 +164,17 @@
         Widget          => '/Widgets/Form/Boolean',
         WidgetArguments => {
             Description => 'Notify me of unread messages',    #loc
-            } 
+            },
 
     },
+    PlainTextPre => {
+	Section         => 'Ticket display',
+	Overridable     => 1,
+        Widget          => '/Widgets/Form/Boolean',
+        WidgetArguments => {
+            Description => 'Use fixed-with font to display messages',
+	},
+    },
     DateTimeFormat => {
         Section         => 'Locale',                       #loc
         Overridable     => 1,

Modified: rt/3.8/trunk/share/html/Ticket/Elements/ShowMessageStanza
==============================================================================
--- rt/3.8/trunk/share/html/Ticket/Elements/ShowMessageStanza	(original)
+++ rt/3.8/trunk/share/html/Ticket/Elements/ShowMessageStanza	Thu Jun 26 14:59:25 2008
@@ -46,6 +46,7 @@
 %# 
 %# END BPS TAGGED BLOCK }}}
 % if ( ref $Message ) {
+%    $m->out($pon);
 <div class="message-stanza-depth-<% $Depth %>">
 <%perl>
 my $para = '';
@@ -64,10 +65,15 @@
 $print_content->( \$para ) if length $para;
 </%perl>
 </div>
+%$m->out($poff);
 % } else {
 %       $print_content->( \$Message );
 % }
 <%INIT>
+my ($pon, $poff) = (RT->Config->Get('PlainTextPre', $session{'CurrentUser'}) && $Depth == 0)
+                            ? ('<pre>', '</pre>')
+                            : ('', '');
+
 my $ticket = $Transaction ? $Transaction->TicketObj : undef;
 
 my $print_content = sub {