Finance/Quote/Morningstarde.pm: fix typos, return nav as named on website
This commit is contained in:
parent
4c7a499133
commit
9b40eaa957
@ -42,11 +42,10 @@ my %wknmap = (
|
|||||||
'lu0454071019' => 'a0ya5q'
|
'lu0454071019' => 'a0ya5q'
|
||||||
);
|
);
|
||||||
|
|
||||||
sub methods {return ('morningstarde' => \&morningstarde,
|
sub methods {return ('morningstarde' => \&morningstarde);}
|
||||||
'europe' => \&morningstarde);}
|
|
||||||
{
|
{
|
||||||
my @labels = ('name', 'date', 'price', 'last', 'currency');
|
my @labels = ('name', 'date', 'nav', 'currency');
|
||||||
sub labels { return (morningstarde => \@labels, europe => \@labels); }
|
sub labels { return (morningstarde => \@labels); }
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
||||||
@ -100,8 +99,7 @@ sub morningstarde
|
|||||||
my $converted_price = $splitvals[1];
|
my $converted_price = $splitvals[1];
|
||||||
$converted_price =~ s/\.//g;
|
$converted_price =~ s/\.//g;
|
||||||
$converted_price =~ s/,/./g;
|
$converted_price =~ s/,/./g;
|
||||||
$info{$stock,'price'} = $converted_price;
|
$info{$stock,'nav'} = $converted_price;
|
||||||
$info{$stock,'last'} = $converted_price;
|
|
||||||
}
|
}
|
||||||
};
|
};
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user