|
Lines 7-12
use C4::Auth;
Link Here
|
| 7 |
use C4::Output; |
7 |
use C4::Output; |
| 8 |
use C4::Biblio; |
8 |
use C4::Biblio; |
| 9 |
use CGI; |
9 |
use CGI; |
|
|
10 |
use C4::Ris; |
| 10 |
|
11 |
|
| 11 |
|
12 |
|
| 12 |
|
13 |
|
|
Lines 35-44
if ($op eq "export") {
Link Here
|
| 35 |
} |
36 |
} |
| 36 |
elsif ($format =~ /marcxml/) { |
37 |
elsif ($format =~ /marcxml/) { |
| 37 |
$marc = marc2marcxml($marc); |
38 |
$marc = marc2marcxml($marc); |
|
|
39 |
$format = "marcxml"; |
| 38 |
} |
40 |
} |
| 39 |
elsif ($format=~ /mods/) { |
41 |
elsif ($format=~ /mods/) { |
| 40 |
$marc = marc2modsxml($marc); |
42 |
$marc = marc2modsxml($marc); |
|
|
43 |
$format = "mods"; |
| 41 |
} |
44 |
} |
|
|
45 |
elsif ($format =~ /ris/) { |
| 46 |
$marc = marc2ris($marc); |
| 47 |
$format = "ris"; |
| 48 |
} |
| 49 |
elsif ($format =~ /bibtex/) { |
| 50 |
$marc = marc2bibtex($marc); |
| 51 |
$format = "bibtex"; |
| 52 |
} |
| 42 |
elsif ($format =~ /dc/) { |
53 |
elsif ($format =~ /dc/) { |
| 43 |
($error,$marc) = marc2dcxml($marc,1); |
54 |
($error,$marc) = marc2dcxml($marc,1); |
| 44 |
$format = "dublin-core.xml"; |
55 |
$format = "dublin-core.xml"; |
|
Lines 46-59
if ($op eq "export") {
Link Here
|
| 46 |
elsif ($format =~ /marc8/) { |
57 |
elsif ($format =~ /marc8/) { |
| 47 |
$marc = changeEncoding($marc,"MARC","MARC21","MARC-8"); |
58 |
$marc = changeEncoding($marc,"MARC","MARC21","MARC-8"); |
| 48 |
$marc = $marc->as_usmarc(); |
59 |
$marc = $marc->as_usmarc(); |
|
|
60 |
$format = "marc8"; |
| 49 |
} |
61 |
} |
| 50 |
elsif ($format =~ /utf8/) { |
62 |
elsif ($format =~ /utf8/) { |
| 51 |
C4::Charset::SetUTF8Flag($marc, 1); |
63 |
C4::Charset::SetUTF8Flag($marc, 1); |
| 52 |
$marc = $marc->as_usmarc(); |
64 |
$marc = $marc->as_usmarc(); |
|
|
65 |
$format = "utf8"; |
| 53 |
} |
66 |
} |
| 54 |
elsif ($format =~ /marcstd/) { |
67 |
elsif ($format =~ /marcstd/) { |
| 55 |
C4::Charset::SetUTF8Flag($marc,1); |
68 |
C4::Charset::SetUTF8Flag($marc,1); |
| 56 |
($error, $marc) = marc2marc($marc, 'marcstd', C4::Context->preference('marcflavour')); |
69 |
($error, $marc) = marc2marc($marc, 'marcstd', C4::Context->preference('marcflavour')); |
|
|
70 |
$format = "marcstd"; |
| 57 |
} |
71 |
} |
| 58 |
print $query->header( |
72 |
print $query->header( |
| 59 |
-type => 'application/octet-stream', |
73 |
-type => 'application/octet-stream', |