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

(-)a/opac/opac-export.pl (-2 / +10 lines)
Lines 32-37 my $query = new CGI; Link Here
32
my $op=$query->param("op")||''; #op=export is currently the only use
32
my $op=$query->param("op")||''; #op=export is currently the only use
33
my $format=$query->param("format")||'utf8';
33
my $format=$query->param("format")||'utf8';
34
my $biblionumber = $query->param("bib")||0;
34
my $biblionumber = $query->param("bib")||0;
35
$biblionumber = int($biblionumber);
35
my ($marc, $error)= ('','');
36
my ($marc, $error)= ('','');
36
37
37
$marc = GetMarcBiblio($biblionumber, 1) if $biblionumber;
38
$marc = GetMarcBiblio($biblionumber, 1) if $biblionumber;
Lines 41-58 if(!$marc) { Link Here
41
}
42
}
42
elsif ($format =~ /endnote/) {
43
elsif ($format =~ /endnote/) {
43
    $marc = marc2endnote($marc);
44
    $marc = marc2endnote($marc);
45
    $format = 'endnote';
44
}
46
}
45
elsif ($format =~ /marcxml/) {
47
elsif ($format =~ /marcxml/) {
46
    $marc = marc2marcxml($marc);
48
    $marc = marc2marcxml($marc);
49
    $format = 'marcxml';
47
}
50
}
48
elsif ($format=~ /mods/) {
51
elsif ($format=~ /mods/) {
49
    $marc = marc2modsxml($marc);
52
    $marc = marc2modsxml($marc);
53
    $format = 'mods';
50
}
54
}
51
elsif ($format =~ /ris/) {
55
elsif ($format =~ /ris/) {
52
    $marc = marc2ris($marc);
56
    $marc = marc2ris($marc);
57
    $format = 'ris';
53
}
58
}
54
elsif ($format =~ /bibtex/) {
59
elsif ($format =~ /bibtex/) {
55
    $marc = marc2bibtex(C4::Biblio::GetMarcBiblio($biblionumber),$biblionumber);
60
    $marc = marc2bibtex(C4::Biblio::GetMarcBiblio($biblionumber),$biblionumber);
61
    $format = 'bibtex';
56
}
62
}
57
elsif ($format =~ /dc/) {
63
elsif ($format =~ /dc/) {
58
    ($error,$marc) = marc2dcxml($marc,1);
64
    ($error,$marc) = marc2dcxml($marc,1);
Lines 61-74 elsif ($format =~ /dc/) { Link Here
61
elsif ($format =~ /marc8/) {
67
elsif ($format =~ /marc8/) {
62
    ($error,$marc) = changeEncoding($marc,"MARC","MARC21","MARC-8");
68
    ($error,$marc) = changeEncoding($marc,"MARC","MARC21","MARC-8");
63
    $marc = $marc->as_usmarc() unless $error;
69
    $marc = $marc->as_usmarc() unless $error;
70
    $format = 'marc8';
64
}
71
}
65
elsif ($format =~ /utf8/) {
72
elsif ($format =~ /utf8/) {
66
    C4::Charset::SetUTF8Flag($marc,1);
73
    C4::Charset::SetUTF8Flag($marc,1);
67
    $marc = $marc->as_usmarc();
74
    $marc = $marc->as_usmarc();
75
    $format = 'utf8';
68
}
76
}
69
elsif ($format =~ /marcstd/) {
77
elsif ($format =~ /marcstd/) {
70
    C4::Charset::SetUTF8Flag($marc,1);
78
    C4::Charset::SetUTF8Flag($marc,1);
71
    ($error,$marc) = marc2marc($marc, 'marcstd', C4::Context->preference('marcflavour'));
79
    ($error,$marc) = marc2marc($marc, 'marcstd', C4::Context->preference('marcflavour'));
80
    $format = 'marcstd';
72
}
81
}
73
else {
82
else {
74
    $error= "Format $format is not supported.";
83
    $error= "Format $format is not supported.";
Lines 78-84 if ($error){ Link Here
78
    print $query->header();
87
    print $query->header();
79
    print $query->start_html();
88
    print $query->start_html();
80
    print "<h1>An error occurred </h1>";
89
    print "<h1>An error occurred </h1>";
81
    print $error;
90
    print $query->escapeHTML("$error");
82
    print $query->end_html();
91
    print $query->end_html();
83
}
92
}
84
else {
93
else {
85
- 

Return to bug 3652