Lines 22-27
my ( $template, $loggedinuser, $cookie ) = get_template_and_user({
Link Here
|
22 |
|
22 |
|
23 |
my $op=$query->param("op"); |
23 |
my $op=$query->param("op"); |
24 |
my $format=$query->param("format"); |
24 |
my $format=$query->param("format"); |
|
|
25 |
my $error = ''; |
25 |
if ($op eq "export") { |
26 |
if ($op eq "export") { |
26 |
my $biblionumber = $query->param("bib"); |
27 |
my $biblionumber = $query->param("bib"); |
27 |
if ($biblionumber){ |
28 |
if ($biblionumber){ |
Lines 39-45
if ($op eq "export") {
Link Here
|
39 |
$marc = marc2modsxml($marc); |
40 |
$marc = marc2modsxml($marc); |
40 |
} |
41 |
} |
41 |
elsif ($format =~ /dc/) { |
42 |
elsif ($format =~ /dc/) { |
42 |
my $error; |
|
|
43 |
($error,$marc) = marc2dcxml($marc,1); |
43 |
($error,$marc) = marc2dcxml($marc,1); |
44 |
$format = "dublin-core.xml"; |
44 |
$format = "dublin-core.xml"; |
45 |
} |
45 |
} |
Lines 51-56
if ($op eq "export") {
Link Here
|
51 |
C4::Charset::SetUTF8Flag($marc, 1); |
51 |
C4::Charset::SetUTF8Flag($marc, 1); |
52 |
$marc = $marc->as_usmarc(); |
52 |
$marc = $marc->as_usmarc(); |
53 |
} |
53 |
} |
|
|
54 |
elsif ($format =~ /marcstd/) { |
55 |
C4::Charset::SetUTF8Flag($marc,1); |
56 |
($error, $marc) = marc2marc($marc, 'marcstd', C4::Context->preference('marcflavour')); |
57 |
} |
54 |
print $query->header( |
58 |
print $query->header( |
55 |
-type => 'application/octet-stream', |
59 |
-type => 'application/octet-stream', |
56 |
-attachment=>"bib-$biblionumber.$format"); |
60 |
-attachment=>"bib-$biblionumber.$format"); |