[GT] SVN Commit r635 - branches/exp/Scripts

[GeniusTrader SVN <raphael AT geniustrader.org>]

Author: thomas
Date: 2008-06-12 07:58:47 +0200 (Thu, 12 Jun 2008)
New Revision: 635

Modified:
   branches/exp/Scripts/display_indicator.pl
Log:
Fix. display_indicator did not correctly work with indexed
indicators, e.g., BOL/2, or similar.


Modified: branches/exp/Scripts/display_indicator.pl
===================================================================
--- branches/exp/Scripts/display_indicator.pl	2008-06-11 05:28:52 UTC (rev 634)
+++ branches/exp/Scripts/display_indicator.pl	2008-06-12 05:58:47 UTC (rev 635)
@@ -156,6 +156,10 @@
 
 my $indicator = create_standard_object("$indicator_module",
 					@ARGV);
+my $number = 0;
+if ($indicator_module =~ m#/(\d+)$#) {
+    $number = $1;
+}
 
 my $db = create_db_object();
 
@@ -168,7 +172,6 @@
 print "Calculating indicator $indicator_name ...\n";
 $indicator->calculate_interval($calc, $first, $last);
 
-
 if ( $tight ) {
     printf "[%s] =", "Date";
     for(my $n = 0; $n < $indicator->get_nb_values; $n++)
@@ -184,6 +187,7 @@
   unless ( $tight ) {
     for(my $n = 0; $n < $indicator->get_nb_values; $n++)
     {
+        next if $number && $n != ($number - 1);
 	my $name = $indicator->get_name($n);
 	
 	if ($calc->indicators->is_available($name, $i)) {
@@ -200,6 +204,7 @@
     printf "[%s] =", $calc->prices->at($i)->[$DATE];
     for(my $n = 0; $n < $indicator->get_nb_values; $n++)
     {
+        next if $number && $n != ($number - 1);
 	my $name = $indicator->get_name($n);
 	
 	if ($calc->indicators->is_available($name, $i)) {