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', |