fixed Gwiki colors

git-svn-id: http://biopieces.googlecode.com/svn/trunk@594 74ccb610-7750-0410-82ae-013aeee3265d

diff --git a/code_perl/Maasha/Gwiki.pm b/code_perl/Maasha/Gwiki.pm
index b37eea40e00509d89ab6086850edc57f02361601..f9321c80148f7bf33e86d5643d7e2495cb5e477d 100644 (file)
--- 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" );
+}
+
 
 # >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<