Bug 11592: (QA followup) Add missing framework code to ViewPolicy filter calls
[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 Modern::Perl;
21
22 use CGI qw ( -utf8 );
23 use Encode qw(encode);
24
25 use C4::Auth;
26 use C4::Biblio;
27 use C4::Items;
28 use C4::Output;
29 use C4::Record;
30 use C4::Ris;
31 use Koha::CsvProfiles;
32 use Koha::RecordProcessor;
33 use Koha::Virtualshelves;
34
35 use utf8;
36 my $query = new CGI;
37
38 # if virtualshelves is disabled, leave immediately
39 if ( ! C4::Context->preference('virtualshelves') ) {
40     print $query->redirect("/cgi-bin/koha/errors/404.pl");
41     exit;
42 }
43
44 my ( $template, $borrowernumber, $cookie ) = get_template_and_user (
45     {
46         template_name   => "opac-downloadshelf.tt",
47         query           => $query,
48         type            => "opac",
49         authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),
50     }
51 );
52
53 my $shelfnumber = $query->param('shelfnumber');
54 my $format  = $query->param('format');
55 my $context = $query->param('context');
56
57 my $shelf = Koha::Virtualshelves->find( $shelfnumber );
58 if ( $shelf and $shelf->can_be_viewed( $borrowernumber ) ) {
59
60     if ($shelfnumber && $format) {
61
62
63         my $contents = $shelf->get_contents;
64         my $marcflavour = C4::Context->preference('marcflavour');
65         my $output;
66         my $extension;
67         my $type;
68
69        # CSV
70         if ($format =~ /^\d+$/) {
71             my @biblios;
72             while ( my $content = $contents->next ) {
73                 push @biblios, $content->biblionumber->biblionumber;
74             }
75             $output = marc2csv(\@biblios, $format);
76         # Other formats
77         } else {
78             my $record_processor = Koha::RecordProcessor->new({
79                 filters => 'ViewPolicy'
80             });
81             while ( my $content = $contents->next ) {
82                 my $biblionumber = $content->biblionumber->biblionumber;
83
84                 my $record = GetMarcBiblio($biblionumber, 1);
85                 my $framework = &GetFrameworkCode( $biblionumber );
86                 $record_processor->options({
87                     interface => 'opac',
88                     frameworkcode => $framework
89                 });
90                 $record_processor->process($record);
91                 next unless $record;
92
93                 if ($format eq 'iso2709') {
94                     $output .= $record->as_usmarc();
95                 }
96                 elsif ($format eq 'ris' ) {
97                     $output .= marc2ris($record);
98                 }
99                 elsif ($format eq 'bibtex') {
100                     $output .= marc2bibtex($record, $biblionumber);
101                 }
102                 elsif ( $format eq 'isbd' ) {
103                     $output   .= GetISBDView({
104                         'record'    => $record,
105                         'template'  => 'opac',
106                         'framework' => $framework,
107                     });
108                     $extension = "txt";
109                     $type      = "text/plain";
110                 }
111             }
112         }
113
114         # If it was a CSV export we change the format after the export so the file extension is fine
115         $format = "csv" if ($format =~ m/^\d+$/);
116
117         print $query->header(
118                                    -type => ($type) ? $type : 'application/octet-stream',
119             -'Content-Transfer-Encoding' => 'binary',
120                              -attachment => ($extension) ? "shelf.$format.$extension" : "shelf.$format"
121         );
122         print $output;
123
124     } else {
125
126         # if modal context is passed set a variable so that page markup can be different
127         if($context eq "modal"){
128             $template->param(modal => 1);
129         } else {
130             $template->param(fullpage => 1);
131         }
132         $template->param(csv_profiles => [ Koha::CsvProfiles->search({ type => 'marc' }) ]);
133         $template->param( shelf => $shelf );
134         output_html_with_http_headers $query, $cookie, $template->output;
135     }
136
137 } else {
138     $template->param(invalidlist => 1); 
139     output_html_with_http_headers $query, $cookie, $template->output;
140 }