[Koha-patches] [PATCH] bug 2505: enable warnings in C4::Breeding

Galen Charlton galen.charlton at liblime.com
Sun Jun 7 23:39:15 CEST 2009


* also start to standardize ISBN normalization
---
 C4/Breeding.pm |    6 +++---
 1 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/C4/Breeding.pm b/C4/Breeding.pm
index 79f2e2f..9494050 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}) {
-- 
1.5.6.5




More information about the Koha-patches mailing list