|
Lines 1325-1331
sub MungeMarcPrice {
Link Here
|
| 1325 |
$price = $localprice; |
1325 |
$price = $localprice; |
| 1326 |
} else { |
1326 |
} else { |
| 1327 |
## Grab the first number in the string ( can use commas or periods for thousands separator and/or decimal separator ) |
1327 |
## Grab the first number in the string ( can use commas or periods for thousands separator and/or decimal separator ) |
| 1328 |
( $price ) = $price =~ m/([\d\,\.]+[[\,\.]\d\d]?)/; |
1328 |
my $computed_price; |
|
|
1329 |
($computed_price) = $price =~ m/(^\s*\d+(\.\d{3})+([\,]\d+)?)/g; |
| 1330 |
($computed_price) = $price =~ m/(^\s*\d+(,\d{3})+([\.]\d+)?)/ unless $computed_price; |
| 1331 |
($computed_price) = $price =~ m/(^\s*\d+([\.,]\d+)?)/ unless $computed_price; |
| 1332 |
$price = $computed_price ? $computed_price : ''; |
| 1329 |
} |
1333 |
} |
| 1330 |
# eliminate symbol/isocode, space and any final dot from the string |
1334 |
# eliminate symbol/isocode, space and any final dot from the string |
| 1331 |
$price =~ s/[\p{Sc}\p{L}\/ ]|\.$//g; |
1335 |
$price =~ s/[\p{Sc}\p{L}\/ ]|\.$//g; |
| 1332 |
- |
|
|