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

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

Return to bug 13642