From: Owen Leonard <oleonard@myacpl.org>
Date: Mon, 10 May 2010 19:24:47 +0000 (-0400)
Subject: Fix for Bug 4400, BIBTEX export from OPAC results in empty file
X-Git-Tag: v3.04.00~220^2~86
X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=commitdiff_plain;ds=sidebyside;h=d76216af0c03dbed1f78d999c27bb1e3af5a7bdc;p=koha_gimpoz

Fix for Bug 4400, BIBTEX export from OPAC results in empty file

opac-export.pl tries to get two variables from marc2bibtex(),
but it only returns one.

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
---

diff --git a/opac/opac-export.pl b/opac/opac-export.pl
index 0e2d94f915..4c53aff006 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);