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 |
- |
|
|