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 0e2d94f..4c53aff 100755 (executable)
--- 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);