From 906d2108b9054a68168219136d69e6d783f156fb 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

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>
---
 C4/Ris.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C4/Ris.pm b/C4/Ris.pm
index d333461a3e..21acd9698e 100644
--- a/C4/Ris.pm
+++ b/C4/Ris.pm
@@ -614,7 +614,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