From 872f8526140d128c93ba8a04d4964aeb4f873a69 Mon Sep 17 00:00:00 2001 From: Frederic Demians 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 --- 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