renamed patternmatcher to dynamic

[biopieces.git] / code_perl / Maasha / Gwiki.pm

diff --git a/code_perl/Maasha/Gwiki.pm b/code_perl/Maasha/Gwiki.pm
index 055df09d889d83bb25e2fce2081663b975730b3e..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" )
         {
@@ -285,7 +285,7 @@ sub text_bold
     my ( $txt,
        ) = @_;
 
-    return colored ( $txt, "bold" );
+    return colored( $txt, "bold" );
 }
 
 
@@ -294,7 +294,15 @@ sub text_underline
     my ( $txt,
        ) = @_;
 
-    return colored ( $txt, "underline" );
+    return colored( $txt, "underline" );
+}
+
+sub text_white
+{
+    my ( $txt,
+       ) = @_;
+
+    return colored( $txt, "white" );
 }