# Modified 2008 by BibLibre for Koha
+# Modified 2011 by Catalyst
#
# This file is part of Koha.
#
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";
}
}
+###
+# 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)
}
+
+
##********************************************************************
## charconv(): converts to a different charset based on a global var
## Arguments: string