Merge remote branch 'kc/master' into new/bug_3013
[wip/koha-chris_n.git] / catalogue / export.pl
1 #!/usr/bin/perl
2 use HTML::Template::Pro;
3 use strict;
4 #use warnings; FIXME - Bug 2505
5
6 use C4::Record;
7 use C4::Auth;
8 use C4::Output;
9 use C4::Biblio;
10 use CGI;
11 use C4::Auth;
12
13 my $query = new CGI;
14 my $op=$query->param("op");
15 my $format=$query->param("format");
16 if ($op eq "export") {
17         my $biblionumber = $query->param("bib");
18         my $dbh=C4::Context->dbh;
19         my $sth;
20         if ($biblionumber) {
21                 $sth=$dbh->prepare("SELECT marc FROM biblioitems WHERE biblionumber =?");
22                 $sth->execute($biblionumber);
23         }
24         while (my ($marc) = $sth->fetchrow) {
25                 if ($marc){
26
27                         if ($format =~ /endnote/) {
28                                 $marc = marc2endnote($marc);
29                                 $format = 'endnote';
30                         }
31                         elsif ($format =~ /marcxml/) {
32                                 $marc = marc2marcxml($marc);
33                         }
34                         elsif ($format=~ /mods/) {
35                                 $marc = marc2modsxml($marc);
36                         }
37                         elsif ($format =~ /dc/) {
38                                 my $error;
39                                 ($error,$marc) = marc2dcxml($marc,1);
40                                 $format = "dublin-core.xml";
41                         }
42                         elsif ($format =~ /marc8/) {
43                                 $marc = changeEncoding($marc,"MARC","MARC21","MARC-8");
44                                 $marc = $marc->as_usmarc();
45                         }
46                         elsif ($format =~ /utf8/) {
47                                 #default
48                         }
49                         print $query->header(
50                                 -type => 'application/octet-stream',
51                 -attachment=>"bib-$biblionumber.$format");
52                         print $marc;
53                 }
54         }
55 }