From 412666e52b4e8f7bc5ae70f2b2978b1bd088a885 Mon Sep 17 00:00:00 2001
From: Chris Cormack <chrisc@catalyst.net.nz>
Date: Mon, 21 Feb 2011 10:29:48 +1300
Subject: [PATCH] Bug 5780 - Export the URI as part of a RIS export

Squashed commit of the following:

commit 8486cd30caf879ddff93aaa5fab722838db946a1
Author: Chris Cormack <chrisc@catalyst.net.nz>
Date:   Mon Feb 21 10:23:07 2011 +1300

    WR76962 - Fixing typos

commit f3ac9d9233db2b410fded112e16e54b27280af0a
Author: Chris Cormack <chrisc@catalyst.net.nz>
Date:   Mon Feb 21 09:56:43 2011 +1300

    WR76962 - Extending RIS support to handle URI

Signed-off-by: Galen Charlton <gmc@esilibrary.com>
Signed-off-by: Ian Walls <ian.walls@bywatersolutions.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
---
 C4/Ris.pm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/C4/Ris.pm b/C4/Ris.pm
index 0f22faba3a..616bed6aaa 100644
--- a/C4/Ris.pm
+++ b/C4/Ris.pm
@@ -39,6 +39,7 @@ package C4::Ris;
 
 
 # Modified 2008 by BibLibre for Koha
+# Modified 2011 by Catalyst
 #
 # This file is part of Koha.
 #
@@ -274,6 +275,11 @@ sub marc2ris {
 	else { ## assume marc21
 	    &print_abstract($record->field('520'));
 	}
+    
+        # 856u has the URI
+        if ($record->field('856')){
+	    print_uri($record->field('856'));
+	}	    
 
 	## end RIS dataset
 	print "ER  - \r\n";
@@ -582,6 +588,17 @@ sub print_issn {
     }
 }
 
+###
+# print_uri() prints info from 856 u 
+###
+sub print_uri {
+    my $f856 = shift;
+    
+    if (my $uri = $f856->subfield('u')){
+	print "UR  - ", charconv($uri), "\n";
+    }
+}
+
 ##********************************************************************
 ## print_loc_callno(): gets info from MARC field 050
 ## Arguments: field (050)
@@ -931,6 +948,8 @@ sub print_abstract {
 
 }
 
+    
+    
 ##********************************************************************
 ## charconv(): converts to a different charset based on a global var
 ## Arguments: string
-- 
2.39.5