matthias/finance-quote
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re-add date parsing

Browse Source
This commit is contained in:
Matthias Merz 2019-04-25 21:54:15 +02:00
parent 319fa34f8d
commit a43f2cff1e
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Finance/Quote/DKB.pm
View File

@ -117,11 +117,13 @@ sub dkb
if (@units) {
$info{$stock,'currency'} = $units[0]->as_text;
};
#my @dates = $parser->findnodes( '//span[@class="dkbPortraitDate"]');
#if (@dates) {
# #$info{$stock,'date'} = $dates[0]->as_text;
# $quoter->store_date(\%info, $stock, {eurodate => $dates[0]->as_text});
#};
my @dates = $parser->findnodes( '//div[@class="exchangeLine"]/span');
if (@dates) {
my $tradedate = $dates[0]->as_text;
$tradedate =~ s/.*(\d\d\.\d\d\.\d\d \d\d:\d\d).*/\1/g;
$info{$stock,'date'} = $dates[0]->as_text;
$quoter->store_date(\%info, $stock, {eurodate => $dates[0]->as_text});
};
$info{$stock,'timezone'} = 'Europe/Berlin';
#$info{$stock,'currency'} = 'EUR';
}