3 # Copyright 2009 BibLibre
5 # This file is part of Koha.
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
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.
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
24 use Encode
qw(encode);
31 use C4
::VirtualShelves
;
38 my ( $template, $borrowernumber, $cookie ) = get_template_and_user
(
40 template_name
=> "opac-downloadshelf.tmpl",
44 flagsrequired
=> { borrow
=> 1 },
48 my $shelfid = $query->param('shelfid');
49 my $format = $query->param('format');
50 my $dbh = C4
::Context
->dbh;
52 if ($shelfid && $format) {
54 my @shelf = GetShelf
($shelfid);
55 my ($items, $totitems) = GetShelfContents
($shelfid);
56 my $marcflavour = C4
::Context
->preference('marcflavour');
60 if ($format =~ /^\d+$/) {
63 push @biblios, $_->{biblionumber
};
65 $output = marc2csv
(\
@biblios, $format);
69 foreach my $biblio (@
$items) {
70 my $biblionumber = $biblio->{biblionumber
};
72 my $record = GetMarcBiblio
($biblionumber);
76 case
"iso2709" { $output .= $record->as_usmarc(); }
77 case
"ris" { $output .= marc2ris
($record); }
78 case
"bibtex" { $output .= marc2bibtex
($record, $biblionumber); }
83 # If it was a CSV export we change the format after the export so the file extension is fine
84 $format = "csv" if ($format =~ m/^\d+$/);
87 -type
=> 'application/octet-stream',
88 -'Content-Transfer-Encoding' => 'binary',
89 -attachment
=>"shelf.$format");
93 $template->param(csv_profiles
=> GetCsvProfilesLoop
());
94 $template->param(shelfid
=> $shelfid);
95 output_html_with_http_headers
$query, $cookie, $template->output;