|
Lines 34-39
my $format=$query->param("format")||'utf8';
Link Here
|
| 34 |
my $biblionumber = $query->param("bib")||0; |
34 |
my $biblionumber = $query->param("bib")||0; |
| 35 |
$biblionumber = int($biblionumber); |
35 |
$biblionumber = int($biblionumber); |
| 36 |
my ($marc, $error)= ('',''); |
36 |
my ($marc, $error)= ('',''); |
|
|
37 |
my $biblionumber = $query->param("bib"); |
| 38 |
my $recommendation = $query->param("recommendation"); |
| 39 |
my $formats = $query->param("formats"); |
| 40 |
my $qualifier = $query->param("qualifier"); |
| 41 |
my $root_element = $query->param("root_element"); |
| 42 |
my $xsischemalocation = $query->param("xsischemalocation"); |
| 43 |
my $resource_url = $query->url(-base => 1) . '/cgi-bin/koha/opac-detail.pl?biblionumber=' . $biblionumber; |
| 37 |
|
44 |
|
| 38 |
$marc = GetMarcBiblio($biblionumber, 1) if $biblionumber; |
45 |
$marc = GetMarcBiblio($biblionumber, 1) if $biblionumber; |
| 39 |
if(!$marc) { |
46 |
if(!$marc) { |
|
Lines 61-68
elsif ($format =~ /bibtex/) {
Link Here
|
| 61 |
$format = 'bibtex'; |
68 |
$format = 'bibtex'; |
| 62 |
} |
69 |
} |
| 63 |
elsif ($format =~ /dc/) { |
70 |
elsif ($format =~ /dc/) { |
| 64 |
($error,$marc) = marc2dcxml($marc,1); |
71 |
SWITCH: |
| 65 |
$format = "dublin-core.xml"; |
72 |
for ($recommendation) { |
|
|
73 |
if (/^simple-dc-rdf/) { |
| 74 |
($error,$marc) = marc2dcxml($recommendation, $marc, 0, |
| 75 |
1, undef, undef, $resource_url , $formats); |
| 76 |
$format = "dublin-core." . $formats; |
| 77 |
last SWITCH; } |
| 78 |
if (/^dc-rdf/) { |
| 79 |
($error,$marc) = marc2dcxml($recommendation, $marc, 1, |
| 80 |
1, undef, undef, $resource_url, $formats); |
| 81 |
$format = "dublin-core." . $formats; |
| 82 |
last SWITCH; } |
| 83 |
if (/^dc-xml/) { |
| 84 |
($error,$marc) = marc2dcxml($recommendation, $marc, $qualifier, |
| 85 |
1, $root_element, $xsischemalocation, undef, undef); |
| 86 |
$format = "dublin-core.xml"; |
| 87 |
last SWITCH; } |
| 88 |
if (/^oai-dc/) { |
| 89 |
($error,$marc) = marc2dcxml($recommendation, $marc); |
| 90 |
$format = "dublin-core.xml"; |
| 91 |
last SWITCH; } |
| 92 |
} |
| 66 |
} |
93 |
} |
| 67 |
elsif ($format =~ /marc8/) { |
94 |
elsif ($format =~ /marc8/) { |
| 68 |
($error,$marc) = changeEncoding($marc,"MARC","MARC21","MARC-8"); |
95 |
($error,$marc) = changeEncoding($marc,"MARC","MARC21","MARC-8"); |
| 69 |
- |
|
|