13 my $op=$query->param("op");
14 my $format=$query->param("format");
15 if ($op eq "export") {
16 my $biblionumber = $query->param("bib");
17 my $dbh=C4::Context->dbh;
20 $sth=$dbh->prepare("SELECT marc FROM biblioitems WHERE biblionumber =?");
21 $sth->execute($biblionumber);
23 while (my ($marc) = $sth->fetchrow) {
26 if ($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/) {
45 -type => 'application/octet-stream',
46 -attachment=>"bib-$biblionumber.$format");