remove dashes in the input isbn (normalization)

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7392 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm b/Open-ILS/src/perlmods/OpenILS/Application/SuperCat.pm
index 37613d0..916a23b 100644 (file)
--- 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);