* 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
_______________________________________________
Koha-patches mailing list
[email protected]
http://lists.koha.org/mailman/listinfo/koha-patches
