From 976ea077638d8bb20b203254b26b8d1f4b347478 Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Fri, 5 Nov 2010 22:07:17 -0500
Subject: [PATCH] fix stockdata asset DateTime exception

---
 lib/WebGUI/Asset/Wobject/StockData.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/Asset/Wobject/StockData.pm b/lib/WebGUI/Asset/Wobject/StockData.pm
index 190fbd416..b68f366fd 100644
--- a/lib/WebGUI/Asset/Wobject/StockData.pm
+++ b/lib/WebGUI/Asset/Wobject/StockData.pm
@@ -203,7 +203,7 @@ sub _convertToEpoch {
    my ($month,$day,$year) = split("/",$date);
    $month = $self->_appendZero($month);
    $day = $self->_appendZero($day);   
-   my $tfixed = substr($time,0,-2);
+   my $tfixed = substr($time,0,5);
    my ($hour,$minute) = split(":",$tfixed);
    if($time =~ m/pm/i) {
       $hour += 12;