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

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

Return to bug 38360