View | Details | Raw Unified | Return to bug 5780
Collapse All | Expand All

(-)a/C4/Ris.pm (-9 / +11 lines)
Lines 40-45 package C4::Ris; Link Here
40
40
41
# Modified 2008 by BibLibre for Koha
41
# Modified 2008 by BibLibre for Koha
42
# Modified 2011 by Catalyst
42
# Modified 2011 by Catalyst
43
# Modified 2011 by Equinox Software, Inc.
43
#
44
#
44
# This file is part of Koha.
45
# This file is part of Koha.
45
#
46
#
Lines 276-285 sub marc2ris { Link Here
276
	    &print_abstract($record->field('520'));
277
	    &print_abstract($record->field('520'));
277
	}
278
	}
278
    
279
    
279
        # 856u has the URI
280
    # 856u has the URI
280
        if ($record->field('856')){
281
    if ($record->field('856')) {
281
	    print_uri($record->field('856'));
282
        print_uri($record->field('856'));
282
	}	    
283
    }
283
284
284
	## end RIS dataset
285
	## end RIS dataset
285
	print "ER  - \r\n";
286
	print "ER  - \r\n";
Lines 592-601 sub print_issn { Link Here
592
# print_uri() prints info from 856 u 
593
# print_uri() prints info from 856 u 
593
###
594
###
594
sub print_uri {
595
sub print_uri {
595
    my $f856 = shift;
596
    my @f856s = @_;
596
    
597
597
    if (my $uri = $f856->subfield('u')){
598
    foreach my $f856 (@f856s) {
598
	print "UR  - ", charconv($uri), "\n";
599
        if (my $uri = $f856->subfield('u')) {
600
	        print "UR  - ", charconv($uri), "\r\n";
601
        }
599
    }
602
    }
600
}
603
}
601
604
602
- 

Return to bug 5780