Bug #2794: Browse Shelf doesn't work with ISBN containing '-'

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>

diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl
index e08a0f5..7e72521 100755 (executable)
--- a/opac/opac-detail.pl
+++ b/opac/opac-detail.pl
@@ -238,6 +238,8 @@ $template->param(
 
 sub isbn_cleanup ($) {
        my $isbn=shift;
+    ($isbn) = $isbn =~ /([\d-]*[X]*)/;
+    $isbn =~ s/-//g;
        if (
                $isbn =~ /\b(\d{13})\b/ or
                $isbn =~ /\b(\d{10})\b/ or