a3ff0bb5cb
- The following export pages used to embed items when exporting,
this was no longer the case, so they were fixed :
Intranet :
- basket/downloadcart.pl,
- virtualshelves/downloadshelf.pl
- catalogue/export.pl
Opac :
- opac/opac-downloadcart.pl
- opac/opac-downloadshelf.pl
- opac/opac-export.pl
- Notes :
- GetMarcBiblio used to embed items data, this was no longer the case,
so an optional parameter was added to choose if items should be embedded or not.
This way, previous work on this bug is not broken, and this is a pretty usefull
feature, imho.
- An optional parameter has been added to SetUTF8Flag, to be able to use NFD during
normalization. This was required to make Unicode/UTF-8 export work again.
Signed-off-by: Claire Hernandez <claire.hernandez@biblibre.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
50 lines
1.1 KiB
Perl
Executable file
50 lines
1.1 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
use HTML::Template::Pro;
|
|
use strict;
|
|
#use warnings; FIXME - Bug 2505
|
|
|
|
use C4::Record;
|
|
use C4::Auth;
|
|
use C4::Output;
|
|
use C4::Biblio;
|
|
use CGI;
|
|
use C4::Auth;
|
|
|
|
my $query = new CGI;
|
|
my $op=$query->param("op");
|
|
my $format=$query->param("format");
|
|
if ($op eq "export") {
|
|
my $biblionumber = $query->param("bib");
|
|
if ($biblionumber){
|
|
|
|
my $marc = GetMarcBiblio($biblionumber, 1);
|
|
|
|
if ($format =~ /endnote/) {
|
|
$marc = marc2endnote($marc);
|
|
$format = 'endnote';
|
|
}
|
|
elsif ($format =~ /marcxml/) {
|
|
$marc = marc2marcxml($marc);
|
|
}
|
|
elsif ($format=~ /mods/) {
|
|
$marc = marc2modsxml($marc);
|
|
}
|
|
elsif ($format =~ /dc/) {
|
|
my $error;
|
|
($error,$marc) = marc2dcxml($marc,1);
|
|
$format = "dublin-core.xml";
|
|
}
|
|
elsif ($format =~ /marc8/) {
|
|
$marc = changeEncoding($marc,"MARC","MARC21","MARC-8");
|
|
$marc = $marc->as_usmarc();
|
|
}
|
|
elsif ($format =~ /utf8/) {
|
|
C4::Charset::SetUTF8Flag($marc, 1);
|
|
$marc = $marc->as_usmarc();
|
|
}
|
|
print $query->header(
|
|
-type => 'application/octet-stream',
|
|
-attachment=>"bib-$biblionumber.$format");
|
|
print $marc;
|
|
}
|
|
}
|