|
Lines 26-31
my $format=$query->param("format");
Link Here
|
| 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 |
my $recommendation = $query->param("recommendation"); |
| 30 |
my $formats = $query->param("formats"); |
| 31 |
my $qualifier = $query->param("qualifier"); |
| 32 |
my $root_element = $query->param("root_element"); |
| 33 |
my $xsischemalocation = $query->param("xsischemalocation"); |
| 34 |
my $resource_url = $query->url(-base => 1) . '/cgi-bin/koha/catalogue/detail.pl?biblionumber=' . $biblionumber; |
| 29 |
if ($biblionumber){ |
35 |
if ($biblionumber){ |
| 30 |
|
36 |
|
| 31 |
my $marc = GetMarcBiblio($biblionumber, 1); |
37 |
my $marc = GetMarcBiblio($biblionumber, 1); |
|
Lines 50-58
if ($op eq "export") {
Link Here
|
| 50 |
$marc = marc2bibtex($marc); |
56 |
$marc = marc2bibtex($marc); |
| 51 |
$format = "bibtex"; |
57 |
$format = "bibtex"; |
| 52 |
} |
58 |
} |
| 53 |
elsif ($format =~ /dc/) { |
59 |
elsif ($format =~ /dc/) { |
| 54 |
($error,$marc) = marc2dcxml($marc,1); |
60 |
SWITCH: |
| 55 |
$format = "dublin-core.xml"; |
61 |
for ($recommendation) { |
|
|
62 |
if (/^simple-dc-rdf/) { |
| 63 |
($error,$marc) = marc2dcxml($recommendation, $marc, 0, |
| 64 |
1, undef, undef, $resource_url , $formats); |
| 65 |
$format = "dublin-core." . $formats; |
| 66 |
last SWITCH; } |
| 67 |
if (/^dc-rdf/) { |
| 68 |
($error,$marc) = marc2dcxml($recommendation, $marc, 1, |
| 69 |
1, undef, undef, $resource_url, $formats); |
| 70 |
$format = "dublin-core." . $formats; |
| 71 |
last SWITCH; } |
| 72 |
if (/^dc-xml/) { |
| 73 |
($error,$marc) = marc2dcxml($recommendation, $marc, $qualifier, |
| 74 |
1, $root_element, $xsischemalocation, undef, undef); |
| 75 |
$format = "dublin-core.xml"; |
| 76 |
last SWITCH; } |
| 77 |
if (/^oai-dc/) { |
| 78 |
($error,$marc) = marc2dcxml($recommendation, $marc); |
| 79 |
$format = "dublin-core.xml"; |
| 80 |
last SWITCH; } |
| 81 |
} |
| 56 |
} |
82 |
} |
| 57 |
elsif ($format =~ /marc8/) { |
83 |
elsif ($format =~ /marc8/) { |
| 58 |
$marc = changeEncoding($marc,"MARC","MARC21","MARC-8"); |
84 |
$marc = changeEncoding($marc,"MARC","MARC21","MARC-8"); |
| 59 |
- |
|
|