From bb409aaf9fd612f89e00ff839156fb2474e531e1 Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Fri, 24 Jul 2009 08:33:18 +0000
Subject: [PATCH] fixed Gwiki colors

git-svn-id: http://biopieces.googlecode.com/svn/trunk@594 74ccb610-7750-0410-82ae-013aeee3265d
---
 code_perl/Maasha/Gwiki.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/code_perl/Maasha/Gwiki.pm b/code_perl/Maasha/Gwiki.pm
index b37eea4..f9321c8 100644
--- a/code_perl/Maasha/Gwiki.pm
+++ b/code_perl/Maasha/Gwiki.pm
@@ -77,7 +77,7 @@ sub gwiki2ascii
         }
         elsif ( $block->[ 0 ]->{ 'FORMAT' } eq "verbatim" )
         {
-            map { push @lines, "   $_->{ 'TEXT' }" } @{ $block };
+            map { push @lines, text_white( "   $_->{ 'TEXT' }" ) } @{ $block };
         }
         elsif ( $block->[ 0 ]->{ 'FORMAT' } eq "itemize" )
         {
@@ -297,6 +297,14 @@ sub text_underline
     return colored( $txt, "underline" );
 }
 
+sub text_white
+{
+    my ( $txt,
+       ) = @_;
+
+    return colored( $txt, "white" );
+}
+
 
 # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
 
-- 
2.39.5