From 872f8526140d128c93ba8a04d4964aeb4f873a69 Mon Sep 17 00:00:00 2001
From: Frederic Demians <f.demians@tamil.fr>
Date: Mon, 17 Nov 2008 09:34:50 +0100
Subject: [PATCH] Bug #2794: Browse Shelf doesn't work with ISBN containing '-'

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---
 opac/opac-detail.pl | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl
index e08a0f55f9..7e72521010 100755
--- 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 
-- 
2.39.5