Fix bad characters in the price column when importing products into a Shelf. Fixes bug #12001.

lib/WebGUI/Asset/Wobject/Shelf.pm

@@ -190,6 +190,7 @@ sub importProducts {
         my %productRow;
         ##Order the data according to the headers, in whatever order they exist.
         @productRow{ @headers } = @{ $productRow };
+        $productRow{price} =~ tr/0-9.//cd;
         ##Isolate just the collateral from the other product information
         my %productCollateral;
         @productCollateral{ @collateralFields } = @productRow{ @collateralFields };