robustifying ISxN searching
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 15 Sep 2006 21:03:16 +0000 (21:03 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Fri, 15 Sep 2006 21:03:16 +0000 (21:03 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@6123 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm

index 97be7d2..14e0b45 100644 (file)
@@ -214,6 +214,10 @@ sub isxn_search {
        my $client = shift;
        my $isxn = lc(shift());
 
+       $isxn =~ s/^\s*//o;
+       $isxn =~ s/\s*$//o;
+       $isxn =~ s/-//o;
+
        my $tag = ($self->api_name =~ /isbn/o) ? '020' : '022';
 
        my $fr_table = metabib::full_rec->table;