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