View | Details | Raw Unified | Return to bug 13642
Collapse All | Expand All

(-)a/opac/opac-export.pl (-3 / +29 lines)
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
- 

Return to bug 13642