projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge remote branch 'kc/new/bug_3072' into kcmaster
[koha_fer]
/
C4
/
Ris.pm
diff --git
a/C4/Ris.pm
b/C4/Ris.pm
index
d3026c0
..
11873d9
100644
(file)
--- a/
C4/Ris.pm
+++ b/
C4/Ris.pm
@@
-57,6
+57,8
@@
package C4::Ris;
#
#
#
#
+#use strict;
+#use warnings; FIXME - Bug 2505
use vars qw($VERSION @ISA @EXPORT);
use vars qw($VERSION @ISA @EXPORT);
@@
-72,22
+74,14
@@
$VERSION = 3.00;
);
);
-=head
2
marc2bibtex - Convert from UNIMARC to RIS
+=head
1
marc2bibtex - Convert from UNIMARC to RIS
-=over 4
-
-my ($ris) = marc2ris($record);
+ my ($ris) = marc2ris($record);
Returns a RIS scalar
Returns a RIS scalar
-=over 2
-
C<$record> - a MARC::Record object
C<$record> - a MARC::Record object
-=back
-
-=back
-
=cut
sub marc2ris {
=cut
sub marc2ris {
@@
-284,8
+278,6
@@
sub marc2ris {
## end RIS dataset
print "ER - \n";
## end RIS dataset
print "ER - \n";
- warn $outvar;
-
# Let's re-redirect stdout
close STDOUT;
open STDOUT, ">&", $oldout;
# Let's re-redirect stdout
close STDOUT;
open STDOUT, ">&", $oldout;
@@
-953,7
+945,6
@@
sub charconv {
}
elsif ($uniout eq "t") {
## convert to utf-8
}
elsif ($uniout eq "t") {
## convert to utf-8
- warn "marc8_to_utf8";
return marc8_to_utf8("@_");
}
else {
return marc8_to_utf8("@_");
}
else {