From 1166d22e69b6c156f4e0b3cf25ecf5d08e296d68 Mon Sep 17 00:00:00 2001
From: martinahansen <martinahansen@74ccb610-7750-0410-82ae-013aeee3265d>
Date: Thu, 23 Jul 2009 11:16:20 +0000
Subject: [PATCH] addid term colors to list_genomes

git-svn-id: http://biopieces.googlecode.com/svn/trunk@581 74ccb610-7750-0410-82ae-013aeee3265d
---
 bp_bin/list_genomes       | 5 +++--
 code_perl/Maasha/Gwiki.pm | 4 ++--
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/bp_bin/list_genomes b/bp_bin/list_genomes
index f5e6d4d..accaffe 100755
--- a/bp_bin/list_genomes
+++ b/bp_bin/list_genomes
@@ -28,6 +28,7 @@
 
 use warnings;
 use strict;
+use Term::ANSIColor;
 use Maasha::Common;
 use Maasha::Biopieces;
 
@@ -71,9 +72,9 @@ foreach $genome ( sort keys %hash )
     foreach $format ( sort keys %found )
     {
         if ( exists $hash{ $genome }{ $format } ) {
-            push @row, "yes";
+            push @row, colored( "yes", "green" );
         } else {
-            push @row, "no";
+            push @row, colored( "no", "red" );
         }
     }
 
diff --git a/code_perl/Maasha/Gwiki.pm b/code_perl/Maasha/Gwiki.pm
index 055df09..b37eea4 100644
--- a/code_perl/Maasha/Gwiki.pm
+++ b/code_perl/Maasha/Gwiki.pm
@@ -285,7 +285,7 @@ sub text_bold
     my ( $txt,
        ) = @_;
 
-    return colored ( $txt, "bold" );
+    return colored( $txt, "bold" );
 }
 
 
@@ -294,7 +294,7 @@ sub text_underline
     my ( $txt,
        ) = @_;
 
-    return colored ( $txt, "underline" );
+    return colored( $txt, "underline" );
 }
 
 
-- 
2.39.5