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  - \n";
285
	print "ER  - \n";
Lines 584-589 sub print_issn { Link Here
584
    }
590
    }
585
}
591
}
586
592
593
###
594
# print_uri() prints info from 856 u 
595
###
596
sub print_uri {
597
    my $f856 = shift;
598
    
599
    if (my $uri = $f856->subfield('u')){
600
	print "UR  - ", charconv($uri), "\n";
601
    }
602
}
603
587
##********************************************************************
604
##********************************************************************
588
## print_loc_callno(): gets info from MARC field 050
605
## print_loc_callno(): gets info from MARC field 050
589
## Arguments: field (050)
606
## Arguments: field (050)
Lines 933-938 sub print_abstract { Link Here
933
950
934
}
951
}
935
952
953
    
954
    
936
##********************************************************************
955
##********************************************************************
937
## charconv(): converts to a different charset based on a global var
956
## charconv(): converts to a different charset based on a global var
938
## Arguments: string
957
## Arguments: string
939
- 

Return to bug 5780