Allow for parsing currency without a currency sign in front

This commit is contained in:
Thomas Bloor 2018-03-21 17:24:55 +00:00
parent b937badc6e
commit 9b761ee343

View file

@ -9,6 +9,8 @@ sub register {
my $value; my $value;
if ( $currency_string =~ /^£([\d.]+)/ ) { if ( $currency_string =~ /^£([\d.]+)/ ) {
$value = $1 * 1; $value = $1 * 1;
} elsif ( $currency_string =~ /^([\d.]+)/ ) {
$value = $1 * 1;
} }
return $value; return $value;
}); });