X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;ds=inline;f=opac%2Fopac-export.pl;h=a992d463ba3cb0a2d9d1749a1b68b37ebfd23a31;hb=8082caa2f9068e93854380de58c5aa6f1bb7820b;hp=f9d3c253d39b658be7716430bb21dc664278ac14;hpb=c1181b780bb87ae688d15070001ce9b949c35070;p=koha.git diff --git a/opac/opac-export.pl b/opac/opac-export.pl index f9d3c253d3..a992d463ba 100755 --- a/opac/opac-export.pl +++ b/opac/opac-export.pl @@ -4,88 +4,155 @@ # # 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., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 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 C4::Record; use C4::Auth; use C4::Output; use C4::Biblio; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Ris; +use Koha::RecordProcessor; + +my $query = CGI->new; +my $op=$query->param("op")||''; #op=export is currently the only use +my $format=$query->param("format")||'utf8'; +my $biblionumber = $query->param("bib")||0; +$biblionumber = int($biblionumber); +my $error = q{}; + +# Determine logged in user's patron category. +# Blank if not logged in. +my $userenv = C4::Context->userenv; +my $borcat = q{}; +if ($userenv) { + my $borrowernumber = $userenv->{'number'}; + if ($borrowernumber) { + my $borrower = Koha::Patrons->find( { borrowernumber => $borrowernumber } ); + $borcat = $borrower ? $borrower->categorycode : $borcat; + } +} + +my $include_items = ($format =~ /bibtex/) ? 0 : 1; +my $marc = $biblionumber + ? GetMarcBiblio({ + biblionumber => $biblionumber, + embed_items => $include_items, + opac => 1, + borcat => $borcat }) + : undef; -my $query = new CGI; -my $op=$query->param("op"); -my $format=$query->param("format"); -if ($op eq "export") { - my $biblionumber = $query->param("bib"); - my $dbh=C4::Context->dbh; - my $sth; - if ($biblionumber) { - $sth=$dbh->prepare("SELECT marc FROM biblioitems WHERE biblionumber =?"); - $sth->execute($biblionumber); - } - my $error; - while (my ($marc) = $sth->fetchrow) { - if ($marc){ +if(!$marc) { + print $query->redirect("/cgi-bin/koha/errors/404.pl"); + exit; +} + +# ASSERT: There is a biblionumber, because GetMarcBiblio returned something. +my $framework = GetFrameworkCode( $biblionumber ); +my $record_processor = Koha::RecordProcessor->new({ + filters => 'ViewPolicy', + options => { + interface => 'opac', + frameworkcode => $framework + } +}); +$record_processor->process($marc); + +if ($format =~ /endnote/) { + $marc = marc2endnote($marc); + $format = 'endnote'; +} +elsif ($format =~ /marcxml/) { + $marc = marc2marcxml($marc); + $format = 'marcxml'; +} +elsif ($format=~ /mods/) { + $marc = marc2modsxml($marc); + $format = 'mods'; +} +elsif ($format =~ /ris/) { + $marc = marc2ris($marc); + $format = 'ris'; +} +elsif ($format =~ /bibtex/) { + $marc = marc2bibtex($marc,$biblionumber); + $format = 'bibtex'; +} +elsif ($format =~ /^(dc|oaidc|srwdc|rdfdc)$/i ) { + # TODO: Dublin Core leaks fields marked hidden by framework. + $marc = marc2dcxml($marc, undef, $biblionumber, $format); + $format = "dublin-core.xml"; +} +elsif ($format =~ /marc8/) { + ($error,$marc) = changeEncoding($marc,"MARC","MARC21","MARC-8"); + $marc = $marc->as_usmarc() unless $error; + $format = 'marc8'; +} +elsif ($format =~ /utf8/) { + C4::Charset::SetUTF8Flag($marc,1); + $marc = $marc->as_usmarc(); + $format = 'utf8'; +} +elsif ($format =~ /marcstd/) { + C4::Charset::SetUTF8Flag($marc,1); + ($error,$marc) = marc2marc($marc, 'marcstd', C4::Context->preference('marcflavour')); + $format = 'marcstd'; +} +elsif ( $format =~ /isbd/ ) { + $marc = GetISBDView({ + 'record' => $marc, + 'template' => 'opac', + 'framework' => $framework, + }); + $format = 'isbd'; +} +else { + $error= "Format $format is not supported."; +} - if ($format =~ /endnote/) { - $marc = marc2endnote($marc); - $format = 'endnote'; - } - elsif ($format =~ /marcxml/) { - $marc = marc2marcxml($marc); - } - elsif ($format=~ /mods/) { - $marc = marc2modsxml($marc); - } - elsif ($format =~ /ris/) { - $marc = marc2ris(MARC::Record->new_from_usmarc($marc)); - } - elsif ($format =~ /bibtex/) { - $marc = marc2bibtex(C4::Biblio::GetMarcBiblio($biblionumber),$biblionumber); - }elsif ($format =~ /dc/) { - ($error,$marc) = marc2dcxml($marc,1); - $format = "dublin-core.xml"; - } - elsif ($format =~ /marc8/) { - ($error,$marc) = changeEncoding($marc,"MARC","MARC21","MARC-8"); - if (! $error){ - $marc = $marc->as_usmarc(); - } - } - elsif ($format =~ /utf8/) { - #default - } - if ($error){ - print $query->header(); - print $query->start_html(); - print "

An error occured

"; - print $error; - print $query->end_html(); - } - else { - print $query->header( - -type => 'application/octet-stream', - -attachment=>"bib-$biblionumber.$format"); - print $marc; - } - } - } +if ($error){ + print $query->header(); + print $query->start_html(); + print "

An error occurred

"; + print $query->escapeHTML("$error"); + print $query->end_html(); } +else { + if ($format eq 'marc8'){ + print $query->header( + -type => 'application/marc', + -charset=>'ISO-2022', + -attachment=>"bib-$biblionumber.$format"); + } + elsif ( $format eq 'isbd' ) { + print $query->header( + -type => 'text/plain', + -charset => 'utf-8', + -attachment => "bib-$biblionumber.txt" + ); + } else { + binmode STDOUT, ':encoding(UTF-8)'; + print $query->header( + -type => 'application/octet-stream', + -charset => 'utf-8', + -attachment => "bib-$biblionumber.$format" + ); + } + print $marc; +} + +1;