View | Details | Raw Unified | Return to bug 4400
Collapse All | Expand All

(-)a/opac/opac-export.pl (-3 / +1 lines)
Lines 39-46 if ($op eq "export") { Link Here
39
 				$marc = marc2ris(MARC::Record->new_from_usmarc($marc));
39
 				$marc = marc2ris(MARC::Record->new_from_usmarc($marc));
40
 			}
40
 			}
41
			elsif ($format =~ /bibtex/) {
41
			elsif ($format =~ /bibtex/) {
42
				my $error;
42
				$marc = marc2bibtex(C4::Biblio::GetMarcBiblio($biblionumber),$biblionumber);
43
				($error,$marc) = marc2bibtex(C4::Biblio::GetMarcBiblio($biblionumber),$biblionumber);
44
			}elsif ($format =~ /dc/) {
43
			}elsif ($format =~ /dc/) {
45
				my $error;
44
				my $error;
46
				($error,$marc) = marc2dcxml($marc,1);
45
				($error,$marc) = marc2dcxml($marc,1);
47
- 

Return to bug 4400