Merge remote branch 'kc/new/enh/bug_5692' into kcmaster
[wip/koha-chris_n.git] / opac / opac-export.pl
1 #!/usr/bin/perl
2
3 # Parts Copyright Catalyst IT 2011
4 #
5 # This file is part of Koha.
6 #
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
10 # version.
11 #
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
15 #
16 # You should have received a copy of the GNU General Public License along with
17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
18 # Suite 330, Boston, MA  02111-1307 USA
19 #
20
21
22 use strict;
23 use warnings;
24
25 use C4::Record;
26 use C4::Auth;
27 use C4::Output;
28 use C4::Biblio;
29 use CGI;
30 use C4::Auth;
31 use C4::Ris;
32
33 my $query = new CGI;
34 my $op=$query->param("op");
35 my $format=$query->param("format");
36 if ($op eq "export") {
37         my $biblionumber = $query->param("bib");
38         my $dbh=C4::Context->dbh;
39         my $sth;
40         if ($biblionumber) {
41                 $sth=$dbh->prepare("SELECT marc FROM biblioitems WHERE biblionumber =?");
42                 $sth->execute($biblionumber);
43         }
44     my $error;
45         while (my ($marc) = $sth->fetchrow) {
46                 if ($marc){
47
48                         if ($format =~ /endnote/) {
49                                 $marc = marc2endnote($marc);
50                                 $format = 'endnote';
51                         }
52                         elsif ($format =~ /marcxml/) {
53                                 $marc = marc2marcxml($marc);
54                         }
55                         elsif ($format=~ /mods/) {
56                                 $marc = marc2modsxml($marc);
57                         }
58                         elsif ($format =~ /ris/) {
59                                 $marc = marc2ris(MARC::Record->new_from_usmarc($marc));
60                         }
61                         elsif ($format =~ /bibtex/) {
62                                 $marc = marc2bibtex(C4::Biblio::GetMarcBiblio($biblionumber),$biblionumber);
63                         }elsif ($format =~ /dc/) {
64                 ($error,$marc) = marc2dcxml($marc,1);
65                                 $format = "dublin-core.xml";
66                         }
67                         elsif ($format =~ /marc8/) {
68                                 ($error,$marc) = changeEncoding($marc,"MARC","MARC21","MARC-8");
69                 if (! $error){
70                     $marc = $marc->as_usmarc();
71                 }
72                         }
73                         elsif ($format =~ /utf8/) {
74                                 #default
75                         }
76             if ($error){
77                 print $query->header();
78                 print $query->start_html();
79                 print "<h1>An error occured </h1>";
80                 print $error;
81                 print $query->end_html();
82             }
83             else {
84                 print $query->header(
85                                 -type => 'application/octet-stream',
86                 -attachment=>"bib-$biblionumber.$format");
87                 print $marc;
88             }
89                 }
90         }
91 }