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");