|
Lines 1416-1422
sub MungeMarcPrice {
Link Here
|
| 1416 |
$price = $localprice; |
1416 |
$price = $localprice; |
| 1417 |
} else { |
1417 |
} else { |
| 1418 |
## Grab the first number in the string ( can use commas or periods for thousands separator and/or decimal separator ) |
1418 |
## Grab the first number in the string ( can use commas or periods for thousands separator and/or decimal separator ) |
| 1419 |
($price) = $price =~ m/([\d\,\.]+[[\,\.]\d\d]?)/; |
1419 |
my $computed_price; |
|
|
1420 |
($computed_price) = $price =~ m/(^\s*\d+(\.\d{3})+([\,]\d+)?)/g; |
| 1421 |
($computed_price) = $price =~ m/(^\s*\d+(,\d{3})+([\.]\d+)?)/ unless $computed_price; |
| 1422 |
($computed_price) = $price =~ m/(^\s*\d+([\.,]\d+)?)/ unless $computed_price; |
| 1423 |
$price = $computed_price ? $computed_price : ''; |
| 1420 |
} |
1424 |
} |
| 1421 |
|
1425 |
|
| 1422 |
# eliminate symbol/isocode, space and any final dot from the string |
1426 |
# eliminate symbol/isocode, space and any final dot from the string |
| 1423 |
- |
|
|