X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=opac%2Fopac-downloadshelf.pl;h=2414d1566a4542d2d7654268cffc4c7794a44f19;hb=03129f718f48be24b99d561d1c699977959fab2a;hp=7a6b1dd9e5da0c554278616aaf7dacd5a424488f;hpb=e20270fec4f6d34f01050bea4c5765d5b3c4ed33;p=koha-ffzg.git diff --git a/opac/opac-downloadshelf.pl b/opac/opac-downloadshelf.pl index 7a6b1dd9e5..2414d1566a 100755 --- a/opac/opac-downloadshelf.pl +++ b/opac/opac-downloadshelf.pl @@ -4,74 +4,105 @@ # # This file is part of Koha. # -# Koha is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 2 of the License, or (at your option) any later -# version. +# Koha is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. # -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR -# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# Koha is distributed in the hope that it will be useful, but +# WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along -# with Koha; if not, write to the Free Software Foundation, Inc., -# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . -use strict; -use warnings; +use Modern::Perl; use CGI qw ( -utf8 ); -use Encode qw(encode); -use C4::Auth; -use C4::Biblio; -use C4::Items; -use C4::Output; -use C4::VirtualShelves; +use C4::Auth qw( get_template_and_user ); +use C4::Biblio qw( GetFrameworkCode GetISBDView ); +use C4::Output qw( output_html_with_http_headers ); use C4::Record; -use C4::Ris; -use C4::Csv; +use C4::Ris qw( marc2ris ); +use Koha::Biblios; +use Koha::CsvProfiles; +use Koha::RecordProcessor; +use Koha::Virtualshelves; + use utf8; -my $query = new CGI; +my $query = CGI->new; + +# if virtualshelves is disabled, leave immediately +if ( ! C4::Context->preference('virtualshelves') ) { + print $query->redirect("/cgi-bin/koha/errors/404.pl"); + exit; +} my ( $template, $borrowernumber, $cookie ) = get_template_and_user ( { template_name => "opac-downloadshelf.tt", query => $query, type => "opac", - authnotrequired => 1, - flagsrequired => { borrow => 1 }, + authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ), } ); -my $shelfid = $query->param('shelfid'); +my $patron = Koha::Patrons->find( $borrowernumber ); + +my $shelfnumber = $query->param('shelfnumber'); my $format = $query->param('format'); my $context = $query->param('context'); -my $showprivateshelves = $query->param('showprivateshelves'); -my $dbh = C4::Context->dbh; -if ( ShelfPossibleAction( (defined($borrowernumber) ? $borrowernumber : -1), $shelfid, 'view' ) ) { +my $shelf = Koha::Virtualshelves->find( $shelfnumber ); +if ( $shelf and $shelf->can_be_viewed( $borrowernumber ) ) { - if ($shelfid && $format) { + if ($shelfnumber && $format) { - my ($items, $totitems) = GetShelfContents($shelfid); - my $marcflavour = C4::Context->preference('marcflavour'); + + my $contents = $shelf->get_contents; + my $marcflavour = C4::Context->preference('marcflavour'); my $output; + my $extension; + my $type; # CSV if ($format =~ /^\d+$/) { + + my $csv_profile = Koha::CsvProfiles->find($format); + if ( not $csv_profile or $csv_profile->staff_only ) { + print $query->redirect('/cgi-bin/koha/errors/404.pl'); + exit; + } + my @biblios; - foreach (@$items) { - push @biblios, $_->{biblionumber}; + while ( my $content = $contents->next ) { + push @biblios, $content->biblionumber; } $output = marc2csv(\@biblios, $format); - # Other formats } else { - foreach my $biblio (@$items) { - my $biblionumber = $biblio->{biblionumber}; - - my $record = GetMarcBiblio($biblionumber, 1); + my $record_processor = Koha::RecordProcessor->new({ + filters => 'ViewPolicy' + }); + while ( my $content = $contents->next ) { + my $biblionumber = $content->biblionumber; + + my $biblio = Koha::Biblios->find($biblionumber); + my $record = $biblio->metadata->record->( + { + embed_items => 1, + opac => 1, + patron => $patron, + } + ); + my $framework = $biblio->frameworkcode; + $record_processor->options({ + interface => 'opac', + frameworkcode => $framework + }); + $record_processor->process($record); next unless $record; if ($format eq 'iso2709') { @@ -83,6 +114,15 @@ if ( ShelfPossibleAction( (defined($borrowernumber) ? $borrowernumber : -1), $sh elsif ($format eq 'bibtex') { $output .= marc2bibtex($record, $biblionumber); } + elsif ( $format eq 'isbd' ) { + $output .= GetISBDView({ + 'record' => $record, + 'template' => 'opac', + 'framework' => $framework, + }); + $extension = "txt"; + $type = "text/plain"; + } } } @@ -90,29 +130,29 @@ if ( ShelfPossibleAction( (defined($borrowernumber) ? $borrowernumber : -1), $sh $format = "csv" if ($format =~ m/^\d+$/); print $query->header( - -type => 'application/octet-stream', - -'Content-Transfer-Encoding' => 'binary', - -attachment=>"shelf.$format"); + -type => ($type) ? $type : 'application/octet-stream', + -'Content-Transfer-Encoding' => 'binary', + -attachment => ($extension) ? "shelf.$format.$extension" : "shelf.$format" + ); print $output; } else { - # get details of the list - my ($shelfnumber,$shelfname,$owner,$category,$sorton) = GetShelf($shelfid); - # if modal context is passed set a variable so that page markup can be different if($context eq "modal"){ $template->param(modal => 1); } else { $template->param(fullpage => 1); } - $template->param(csv_profiles => GetCsvProfilesLoop('marc')); $template->param( - showprivateshelves => $showprivateshelves, - shelfid => $shelfid, - shelfname => $shelfname, - shelfnumber => $shelfnumber, - viewshelf => $shelfnumber + csv_profiles => Koha::CsvProfiles->search( + { + type => 'marc', + used_for => 'export_records', + staff_only => 0 + } + ), + shelf => $shelf, ); output_html_with_http_headers $query, $cookie, $template->output; }