|
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"); |