2 use HTML
::Template
::Pro
;
4 #use warnings; FIXME - Bug 2505
14 my $op=$query->param("op");
15 my $format=$query->param("format");
16 if ($op eq "export") {
17 my $biblionumber = $query->param("bib");
20 my $marc = GetMarcBiblio
($biblionumber, 1);
22 if ($format =~ /endnote/) {
23 $marc = marc2endnote
($marc);
26 elsif ($format =~ /marcxml/) {
27 $marc = marc2marcxml
($marc);
29 elsif ($format=~ /mods/) {
30 $marc = marc2modsxml
($marc);
32 elsif ($format =~ /dc/) {
34 ($error,$marc) = marc2dcxml
($marc,1);
35 $format = "dublin-core.xml";
37 elsif ($format =~ /marc8/) {
38 $marc = changeEncoding
($marc,"MARC","MARC21","MARC-8");
39 $marc = $marc->as_usmarc();
41 elsif ($format =~ /utf8/) {
42 C4
::Charset
::SetUTF8Flag
($marc, 1);
43 $marc = $marc->as_usmarc();
46 -type
=> 'application/octet-stream',
47 -attachment
=>"bib-$biblionumber.$format");