Allow for parsing currency without a currency sign in front
This commit is contained in:
parent
b937badc6e
commit
9b761ee343
1 changed files with 2 additions and 0 deletions
|
@ -9,6 +9,8 @@ sub register {
|
|||
my $value;
|
||||
if ( $currency_string =~ /^£([\d.]+)/ ) {
|
||||
$value = $1 * 1;
|
||||
} elsif ( $currency_string =~ /^([\d.]+)/ ) {
|
||||
$value = $1 * 1;
|
||||
}
|
||||
return $value;
|
||||
});
|
||||
|
|
Reference in a new issue