diff --git a/Finance/Quote/Morningstarde.pm b/Finance/Quote/Morningstarde.pm index ff44a54..e62cb98 100644 --- a/Finance/Quote/Morningstarde.pm +++ b/Finance/Quote/Morningstarde.pm @@ -42,11 +42,14 @@ sub labels { return (morningstarde => \@labels); } sub get_stock_url { - my $stock_wkn = shift; + my $stock_symbol = shift; - my $id = $idmap{lc($stock_wkn)}; + # check ID-map for symbol, otherwise interpret as an ID + my $id = $idmap{lc($stock_symbol)}; if (defined($id)) { return baseurl() . $id; + } else { + return baseurl() . $stock_symbol; }; }