...

1 files changed, 18 insertions, 0 deletions

diff --git a/overlays/FinanceQuote/tradegate.patch b/overlays/FinanceQuote/tradegate.patch
new file mode 100644
index 00000000..f1081fc4
--- /dev/null
+++ b/overlays/FinanceQuote/tradegate.patch
@@ -0,0 +1,18 @@
+--- old/lib/Finance/Quote/Tradegate.pm
++++ new/lib/Finance/Quote/Tradegate.pm
+@@ -98,12 +98,13 @@
+         @child = $td1->content_list;
+         my $exchange = $child[0];
+
+         $td1 = ($lastvalue->look_down('_tag'=>'td'))[7];
+         @child = $td1->content_list;
+-        my $date = substr($child[0], 0, 8);
+-        my $time = substr($child[0], 9, 5); # CE(S)T
++       $child[0] =~ /(?<date>\d{2}\.\d{2}\.\d{2,4})\s*\/\s*(?<time>\d{2}:\d{2})/;
++       my $date = $+{date};
++       my $time = $+{time};
+
+         $td1 = ($lastvalue->look_down('_tag'=>'td'))[9];
+         @child = $td1->content_list;
+         my $price = $child[0];
+         $price =~ s/\.//g;