Allow for parsing currency without a currency sign in front
This commit is contained in:
parent
2b5bb9cd8c
commit
2286e54104
1 changed files with 2 additions and 0 deletions
|
@ -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;
|
||||||
});
|
});
|
||||||
|
|
Reference in a new issue