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 |
- |
|
|