adding 024 to ISBN search, that is where isbn13s will live

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
index 14e0b45..155543e 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/Publisher/metabib.pm
@@ -218,18 +218,18 @@ sub isxn_search {
        $isxn =~ s/\s*$//o;
        $isxn =~ s/-//o;
 
-       my $tag = ($self->api_name =~ /isbn/o) ? '020' : '022';
+       my $tag = ($self->api_name =~ /isbn/o) ? "'020' OR tag = '024'" : "'022'";
 
        my $fr_table = metabib::full_rec->table;
 
        my $sql = <<"   SQL";
                SELECT  record
                  FROM  $fr_table
-                 WHERE tag = ?
+                 WHERE tag = $tag
                        AND value LIKE ?
        SQL
 
-       my $list = metabib::metarecord_source_map->db_Main->selectcol_arrayref($sql, {}, $tag, "$isxn%");
+       my $list = metabib::metarecord_source_map->db_Main->selectcol_arrayref($sql, {}, "$isxn%");
        $client->respond($_) for (@$list);
        return undef;
 }