From 33f9b69357136b8ae554884a6cca28f0e34edcfa Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Fri, 1 Nov 2002 18:13:46 +0000
Subject: [PATCH] No longer removes - or X characters from ISBNs.

---
 C4/SimpleMarc.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/C4/SimpleMarc.pm b/C4/SimpleMarc.pm
index a311195133..03cf4c0654 100755
--- a/C4/SimpleMarc.pm
+++ b/C4/SimpleMarc.pm
@@ -323,7 +323,7 @@ sub extractmarcfields {
 	}
 
 	if ( $bib->{isbn} ) {
-	    $bib->{isbn}=~s/[^\d]*//g;	# drop non-digits
+	    $bib->{isbn}=~s/[^\d-X]*//g;	# drop non-digits
 	};
 
 	if ( $bib->{issn} ) {
@@ -465,6 +465,9 @@ sub taglabel {
 
 #---------------------------------------------
 # $Log$
+# Revision 1.1.2.6  2002/11/01 18:13:46  tonnesen
+# No longer removes - or X characters from ISBNs.
+#
 # Revision 1.1.2.5  2002/08/14 18:30:50  tonnesen
 # Adding copyright statements to all .pl and .pm files in rel-1-2 branch
 #
-- 
2.39.5