#
#
+#use strict;
+#use warnings; FIXME - Bug 2505
use vars qw($VERSION @ISA @EXPORT);
);
-=head2 marc2bibtex - Convert from UNIMARC to RIS
+=head1 marc2bibtex - Convert from UNIMARC to RIS
-=over 4
-
-my ($ris) = marc2ris($record);
+ my ($ris) = marc2ris($record);
Returns a RIS scalar
-=over 2
-
C<$record> - a MARC::Record object
-=back
-
-=back
-
=cut
sub marc2ris {
## end RIS dataset
print "ER - \n";
- warn $outvar;
-
# Let's re-redirect stdout
close STDOUT;
open STDOUT, ">&", $oldout;
}
elsif ($uniout eq "t") {
## convert to utf-8
- warn "marc8_to_utf8";
return marc8_to_utf8("@_");
}
else {