tidied up code, fixed indentation, unused variables, etc

[koha.git] / C4 / Ris.pm

diff --git a/C4/Ris.pm b/C4/Ris.pm
index c5c4806..11873d9 100644 (file)
--- a/C4/Ris.pm
+++ b/C4/Ris.pm
@@ -74,22 +74,14 @@ $VERSION = 3.00;
 );
 
 
-=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 {
@@ -286,8 +278,6 @@ sub marc2ris {
        ## end RIS dataset
        print "ER  - \n";
 
-    warn $outvar;
-
     # Let's re-redirect stdout
     close STDOUT;
     open STDOUT, ">&", $oldout;
@@ -955,7 +945,6 @@ sub charconv {
     }
     elsif ($uniout eq "t") {
        ## convert to utf-8
-       warn "marc8_to_utf8";
        return marc8_to_utf8("@_");
     }
     else {