From: Galen Charlton <galen.charlton@liblime.com>
Date: Sun, 7 Jun 2009 22:02:51 +0000 (+1200)
Subject: bug 2505: enable warnings in C4::Breeding
X-Git-Tag: n_acq_a_porter~26^2~101
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=58920538f1ad892fb5fda690ac8f15869917bcc0;p=koha.git

bug 2505: enable warnings in C4::Breeding

* also start to standardize ISBN normalization

Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---

diff --git a/C4/Breeding.pm b/C4/Breeding.pm
index 79f2e2f23c..9494050853 100644
--- a/C4/Breeding.pm
+++ b/C4/Breeding.pm
@@ -18,6 +18,8 @@ package C4::Breeding;
 # Suite 330, Boston, MA  02111-1307 USA
 
 use strict;
+use warnings;
+
 use C4::Biblio;
 use C4::Koha;
 use C4::Charset;
@@ -109,9 +111,7 @@ sub ImportBreeding {
             # if isbn found and biblio does not exist, add it. If isbn found and biblio exists, 
             # overwrite or ignore depending on user choice
             # drop every "special" char : spaces, - ...
-            $oldbiblio->{isbn} =~ s/\(.*$//;
-            $oldbiblio->{isbn} =~ tr/ -_//;
-            $oldbiblio->{isbn} = uc $oldbiblio->{isbn}; 
+            $oldbiblio->{isbn} = C4::Koha::_isbn_cleanup($oldbiblio->{isbn}); # FIXME C4::Koha::_isbn_cleanup should be public
             # search if biblio exists
             my $biblioitemnumber;
             if ($oldbiblio->{isbn}) {