View | Details | Raw Unified | Return to bug 38360
Collapse All | Expand All

(-)a/C4/Biblio.pm (-2 / +5 lines)
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
- 

Return to bug 38360