|
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 |
- |
|
|