From f8deb4cd22d019eb5d18e907dac6e56c500aeba5 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 1 Jun 2007 17:51:19 +0000
Subject: [PATCH] remove dashes in the input isbn (normalization)

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7392 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
index 37613d0f9e..916a23b5f3 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
@@ -1008,6 +1008,8 @@ sub oISBN {
 	my $client = shift;
 	my $isbn = shift;
 
+	$isbn =~ s/-//gso;
+
 	throw OpenSRF::EX::InvalidArg ('I need an ISBN please')
 		unless (length($isbn) >= 10);
 
-- 
2.11.0