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

(-)a/C4/Ris.pm (-1 / +19 lines)
Lines 39-44 package C4::Ris; Link Here
39
39
40
40
41
# Modified 2008 by BibLibre for Koha
41
# Modified 2008 by BibLibre for Koha
42
# Modified 2011 by Catalyst
42
#
43
#
43
# This file is part of Koha.
44
# This file is part of Koha.
44
#
45
#
Lines 274-279 sub marc2ris { Link Here
274
	else { ## assume marc21
275
	else { ## assume marc21
275
	    &print_abstract($record->field('520'));
276
	    &print_abstract($record->field('520'));
276
	}
277
	}
278
    
279
        # 856u has the URI
280
        if ($record->field('856')){
281
	    print_uri($record->field('856'));
282
	}	    
277
283
278
	## end RIS dataset
284
	## end RIS dataset
279
	print "ER  - \r\n";
285
	print "ER  - \r\n";
Lines 582-587 sub print_issn { Link Here
582
    }
588
    }
583
}
589
}
584
590
591
###
592
# print_uri() prints info from 856 u 
593
###
594
sub print_uri {
595
    my $f856 = shift;
596
    
597
    if (my $uri = $f856->subfield('u')){
598
	print "UR  - ", charconv($uri), "\n";
599
    }
600
}
601
585
##********************************************************************
602
##********************************************************************
586
## print_loc_callno(): gets info from MARC field 050
603
## print_loc_callno(): gets info from MARC field 050
587
## Arguments: field (050)
604
## Arguments: field (050)
Lines 931-936 sub print_abstract { Link Here
931
948
932
}
949
}
933
950
951
    
952
    
934
##********************************************************************
953
##********************************************************************
935
## charconv(): converts to a different charset based on a global var
954
## charconv(): converts to a different charset based on a global var
936
## Arguments: string
955
## Arguments: string
937
- 

Return to bug 5780