From 066adc4a3e5c9f6c0eb8c7c8c30c41814d632fd0 Mon Sep 17 00:00:00 2001
From: =?utf8?q?Fr=C3=A9d=C3=A9ric=20Demians?= <f.demians@tamil.fr>
Date: Mon, 30 Mar 2009 08:42:22 +0200
Subject: [PATCH] Fix Amazon cover for UNIMARC

In UNIMARC, 010 tag contains ISBN. In UNIMARC, ISBN with '-'
are valid. This patch modify ISBN normalization in order to
automaticaly suppress '-' before sending ISBN to Amazon
to get book cover.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---
 C4/Koha.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/C4/Koha.pm b/C4/Koha.pm
index 290ef40db6..9c370202cb 100644
--- a/C4/Koha.pm
+++ b/C4/Koha.pm
@@ -1249,6 +1249,7 @@ sub _normalize_match_point {
 
 sub _isbn_cleanup ($) {
     my $normalized_isbn = shift;
+    $normalized_isbn =~ s/-//g;
     $normalized_isbn =~/([0-9]{1,})/;
     $normalized_isbn = $1;
     if (
-- 
2.39.5