From 462d2499fbb5161fbc6b1eb3297ebd6f8e8130f7 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 5 Apr 2005 21:36:11 +0000
Subject: [PATCH] fixed "price" checking

git-svn-id: svn://svn.open-ils.org/ILS/trunk@453 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Evergreen/src/extras/import/import_holdings.pl | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Evergreen/src/extras/import/import_holdings.pl b/Evergreen/src/extras/import/import_holdings.pl
index b1e0c7f4a2..10e8d9befe 100755
--- a/Evergreen/src/extras/import/import_holdings.pl
+++ b/Evergreen/src/extras/import/import_holdings.pl
@@ -99,7 +99,9 @@ while ( $xml .= <STDIN> ) {
 		$barcode =~ s/\\/\\\\/og;
 		$label =~ s/\\/\\\\/og;
 		$price =~ s/\$//og;
-		$price ||= '0.00';
+		if ($price !~ /^\s*\d{1,6}\.\d{2}\s*$/o) {
+			$price = '0.00';
+		}
 
 		unless (exists($$cn_map{"$rec_id/$owning_lib/$label"})) {
 			$$cn_map{"$rec_id/$owning_lib/$label"} = $cn_id;
-- 
2.43.2