|
Lines 25-47
my $op=$query->param("op");
Link Here
|
| 25 |
my $format=$query->param("format"); |
25 |
my $format=$query->param("format"); |
| 26 |
my $error = ''; |
26 |
my $error = ''; |
| 27 |
if ($op eq "export") { |
27 |
if ($op eq "export") { |
| 28 |
my $biblionumber = $query->param("bib"); |
28 |
my $biblionumber = $query->param("bib"); |
| 29 |
if ($biblionumber){ |
29 |
if ($biblionumber){ |
| 30 |
|
30 |
|
| 31 |
my $marc = GetMarcBiblio($biblionumber, 1); |
31 |
my $marc = GetMarcBiblio($biblionumber, 1); |
| 32 |
|
32 |
|
| 33 |
if ($format =~ /endnote/) { |
33 |
if ($format =~ /endnote/) { |
| 34 |
$marc = marc2endnote($marc); |
34 |
$marc = marc2endnote($marc); |
| 35 |
$format = 'endnote'; |
35 |
$format = 'endnote'; |
| 36 |
} |
36 |
} |
| 37 |
elsif ($format =~ /marcxml/) { |
37 |
elsif ($format =~ /marcxml/) { |
| 38 |
$marc = marc2marcxml($marc); |
38 |
$marc = marc2marcxml($marc); |
| 39 |
$format = "marcxml"; |
39 |
$format = "marcxml"; |
| 40 |
} |
40 |
} |
| 41 |
elsif ($format=~ /mods/) { |
41 |
elsif ($format=~ /mods/) { |
| 42 |
$marc = marc2modsxml($marc); |
42 |
$marc = marc2modsxml($marc); |
| 43 |
$format = "mods"; |
43 |
$format = "mods"; |
| 44 |
} |
44 |
} |
| 45 |
elsif ($format =~ /ris/) { |
45 |
elsif ($format =~ /ris/) { |
| 46 |
$marc = marc2ris($marc); |
46 |
$marc = marc2ris($marc); |
| 47 |
$format = "ris"; |
47 |
$format = "ris"; |
|
Lines 50-77
if ($op eq "export") {
Link Here
|
| 50 |
$marc = marc2bibtex($marc); |
50 |
$marc = marc2bibtex($marc); |
| 51 |
$format = "bibtex"; |
51 |
$format = "bibtex"; |
| 52 |
} |
52 |
} |
| 53 |
elsif ($format =~ /dc/) { |
53 |
elsif ($format =~ /dc/) { |
| 54 |
($error,$marc) = marc2dcxml($marc,1); |
54 |
($error,$marc) = marc2dcxml($marc,1); |
| 55 |
$format = "dublin-core.xml"; |
55 |
$format = "dublin-core.xml"; |
| 56 |
} |
56 |
} |
| 57 |
elsif ($format =~ /marc8/) { |
57 |
elsif ($format =~ /marc8/) { |
| 58 |
$marc = changeEncoding($marc,"MARC","MARC21","MARC-8"); |
58 |
$marc = changeEncoding($marc,"MARC","MARC21","MARC-8"); |
| 59 |
$marc = $marc->as_usmarc(); |
59 |
$marc = $marc->as_usmarc(); |
| 60 |
$format = "marc8"; |
60 |
$format = "marc8"; |
| 61 |
} |
61 |
} |
| 62 |
elsif ($format =~ /utf8/) { |
62 |
elsif ($format =~ /utf8/) { |
| 63 |
C4::Charset::SetUTF8Flag($marc, 1); |
63 |
C4::Charset::SetUTF8Flag($marc, 1); |
| 64 |
$marc = $marc->as_usmarc(); |
64 |
$marc = $marc->as_usmarc(); |
| 65 |
$format = "utf8"; |
65 |
$format = "utf8"; |
| 66 |
} |
66 |
} |
| 67 |
elsif ($format =~ /marcstd/) { |
67 |
elsif ($format =~ /marcstd/) { |
| 68 |
C4::Charset::SetUTF8Flag($marc,1); |
68 |
C4::Charset::SetUTF8Flag($marc,1); |
| 69 |
($error, $marc) = marc2marc($marc, 'marcstd', C4::Context->preference('marcflavour')); |
69 |
($error, $marc) = marc2marc($marc, 'marcstd', C4::Context->preference('marcflavour')); |
| 70 |
$format = "marcstd"; |
70 |
$format = "marcstd"; |
| 71 |
} |
71 |
} |
| 72 |
print $query->header( |
72 |
print $query->header( |
| 73 |
-type => 'application/octet-stream', |
73 |
-type => 'application/octet-stream', |
| 74 |
-attachment=>"bib-$biblionumber.$format"); |
74 |
-attachment=>"bib-$biblionumber.$format"); |
| 75 |
print $marc; |
75 |
print $marc; |
| 76 |
} |
76 |
} |
| 77 |
} |
77 |
} |
| 78 |
- |
|
|