From f2dfce1a95fda744ea4aea4b844343f601a1b0b5 Mon Sep 17 00:00:00 2001
From: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>
Date: Thu, 3 Dec 2015 09:19:17 -0300
Subject: [PATCH] Bug 14971: fix RIS export
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

This patch removes a limit in RIS.pm print_isbn sub.

To test:
1) Find in opac a book with an isbn with length(isbn) > 10
(with dashes or isbn13)
2) Export record to RIS format, check truncated SN field
in exported file
3) Apply the patch
4) Export again, no more truncation

Signed-off-by: jvr <jvr@fct.unl.pt>
Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
(cherry picked from commit 906d2108b9054a68168219136d69e6d783f156fb)
Signed-off-by: Julian Maurice <julian.maurice@biblibre.com>
(cherry picked from commit f6d9e04b886c3d7d9378732f9cdc3eedffed8659)
Signed-off-by: Frédéric Demians <f.demians@tamil.fr>
---
 C4/Ris.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Ris.pm b/C4/Ris.pm
index 4b7a869a81..fa1ef29131 100644
--- a/C4/Ris.pm
+++ b/C4/Ris.pm
@@ -565,7 +565,7 @@ sub print_isbn {
 	    warn("truncated isbn") if $marcprint;
 	}
 
-	my $isbn = substr($isbnfield->subfield('a'), 0, 10);
+    my $isbn = $isbnfield->subfield('a');
 	print "SN  - ", &charconv($isbn), "\r\n";
     }
 }
-- 
2.39.5