(bug #4491) fix weird code in search scripts

[koha.git] / opac / opac-export.pl

diff --git a/opac/opac-export.pl b/opac/opac-export.pl
index 11ec6d5..51c5170 100755 (executable)
--- a/opac/opac-export.pl
+++ b/opac/opac-export.pl
@@ -1,13 +1,14 @@
 #!/usr/bin/perl
-use HTML::Template;
+use HTML::Template::Pro;
 use strict;
-require Exporter;
+
 use C4::Record;
 use C4::Auth;
 use C4::Output;
 use C4::Biblio;
 use CGI;
 use C4::Auth;
+use C4::Ris;
 
 my $query = new CGI;
 my $op=$query->param("op");
@@ -33,7 +34,13 @@ if ($op eq "export") {
                        elsif ($format=~ /mods/) {
                                $marc = marc2modsxml($marc);
                        }
-                       elsif ($format =~ /dc/) {
+                       elsif ($format =~ /ris/) {
+                               $marc = marc2ris(MARC::Record->new_from_usmarc($marc));
+                       }
+                       elsif ($format =~ /bibtex/) {
+                               my $error;
+                               ($error,$marc) = marc2bibtex(C4::Biblio::GetMarcBiblio($biblionumber),$biblionumber);
+                       }elsif ($format =~ /dc/) {
                                my $error;
                                ($error,$marc) = marc2dcxml($marc,1);
                                $format = "dublin-core.xml";