Bug 14544: Make the OPAC side independent of Page.pm
[koha.git] / opac / opac-downloadshelf.pl
1 #!/usr/bin/perl
2
3 # Copyright 2009 BibLibre
4 #
5 # This file is part of Koha.
6 #
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
11 #
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
16 #
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
19
20 use strict;
21 use warnings;
22
23 use CGI qw ( -utf8 );
24 use Encode qw(encode);
25
26 use C4::Auth;
27 use C4::Biblio;
28 use C4::Items;
29 use C4::Output;
30 use C4::VirtualShelves;
31 use C4::Record;
32 use C4::Ris;
33 use C4::Csv;
34
35 use Koha::Virtualshelves;
36
37 use utf8;
38 my $query = new CGI;
39
40 my ( $template, $borrowernumber, $cookie ) = get_template_and_user (
41     {
42         template_name   => "opac-downloadshelf.tt",
43         query           => $query,
44         type            => "opac",
45         authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
46     }
47 );
48
49 my $shelfnumber = $query->param('shelfnumber');
50 my $format  = $query->param('format');
51 my $context = $query->param('context');
52 my $dbh     = C4::Context->dbh;
53
54 my $shelf = Koha::Virtualshelves->find( $shelfnumber );
55 if ( $shelf and $shelf->can_be_viewed( $borrowernumber ) ) {
56
57     if ($shelfnumber && $format) {
58
59         my ($items, $totitems)  = GetShelfContents($shelfnumber);
60         my $marcflavour         = C4::Context->preference('marcflavour');
61         my $output;
62         my $extension;
63         my $type;
64
65        # CSV
66         if ($format =~ /^\d+$/) {
67             my @biblios;
68             foreach (@$items) {
69                 push @biblios, $_->{biblionumber};
70             }
71             $output = marc2csv(\@biblios, $format);
72                 
73         # Other formats
74         } else {
75             foreach my $biblio (@$items) {
76                 my $biblionumber = $biblio->{biblionumber};
77
78                 my $record = GetMarcBiblio($biblionumber, 1);
79                 next unless $record;
80
81                 if ($format eq 'iso2709') {
82                     $output .= $record->as_usmarc();
83                 }
84                 elsif ($format eq 'ris' ) {
85                     $output .= marc2ris($record);
86                 }
87                 elsif ($format eq 'bibtex') {
88                     $output .= marc2bibtex($record, $biblionumber);
89                 }
90                 elsif ( $format eq 'isbd' ) {
91                     $output   .= GetISBDView($biblionumber, "opac");
92                     $extension = "txt";
93                     $type      = "text/plain";
94                 }
95             }
96         }
97
98         # If it was a CSV export we change the format after the export so the file extension is fine
99         $format = "csv" if ($format =~ m/^\d+$/);
100
101         print $query->header(
102                                    -type => ($type) ? $type : 'application/octet-stream',
103             -'Content-Transfer-Encoding' => 'binary',
104                              -attachment => ($extension) ? "shelf.$format.$extension" : "shelf.$format"
105         );
106         print $output;
107
108     } else {
109
110         my $shelf = Koha::Virtualshelves->find( $shelfid );
111
112         # if modal context is passed set a variable so that page markup can be different
113         if($context eq "modal"){
114             $template->param(modal => 1);
115         } else {
116             $template->param(fullpage => 1);
117         }
118         $template->param(csv_profiles => GetCsvProfilesLoop('marc'));
119         $template->param( shelf => $shelf );
120         output_html_with_http_headers $query, $cookie, $template->output;
121     }
122
123 } else {
124     $template->param(invalidlist => 1); 
125     output_html_with_http_headers $query, $cookie, $template->output;
126 }