[Koha-patches] [PATCH] Fix for Bug 4400, BIBTEX export from OPAC results in empty file

[Owen Leonard]

opac-export.pl tries to get two variables from marc2bibtex(),
but it only returns one.
---
 opac/opac-export.pl |    3 +--
 1 files changed, 1 insertions(+), 2 deletions(-)

diff --git a/opac/opac-export.pl b/opac/opac-export.pl
index 0e2d94f..4c53aff 100755
--- a/opac/opac-export.pl
+++ b/opac/opac-export.pl
@@ -39,8 +39,7 @@ if ($op eq "export") {
  				$marc = marc2ris(MARC::Record->new_from_usmarc($marc));
  			}
 			elsif ($format =~ /bibtex/) {
-				my $error;
-				($error,$marc) = marc2bibtex(C4::Biblio::GetMarcBiblio($biblionumber),$biblionumber);
+				$marc = marc2bibtex(C4::Biblio::GetMarcBiblio($biblionumber),$biblionumber);
 			}elsif ($format =~ /dc/) {
 				my $error;
 				($error,$marc) = marc2dcxml($marc,1);
-- 
1.7.0.4