|
Lines 129-135
if (not defined $format) {
Link Here
|
| 129 |
my $biblionumber = $1; |
129 |
my $biblionumber = $1; |
| 130 |
|
130 |
|
| 131 |
my $content; |
131 |
my $content; |
| 132 |
eval { |
132 |
|
| 133 |
my $marcxml = GetXmlBiblio($biblionumber); |
133 |
my $marcxml = GetXmlBiblio($biblionumber); |
| 134 |
unless (defined $marcxml) { |
134 |
unless (defined $marcxml) { |
| 135 |
# no bib, so 404 |
135 |
# no bib, so 404 |
|
Lines 147-155
if (not defined $format) {
Link Here
|
| 147 |
xml => $marcxml, |
147 |
xml => $marcxml, |
| 148 |
file => $xslt_file, |
148 |
file => $xslt_file, |
| 149 |
}); |
149 |
}); |
| 150 |
}; |
150 |
|
| 151 |
if ($@) { |
151 |
if( !defined $content || $xslt_engine->err ) { |
| 152 |
print $cgi->header( -status => '500 internal error ' . $@ ); |
152 |
print $cgi->header( -status => '500 internal error' ); |
| 153 |
exit 0; |
153 |
exit 0; |
| 154 |
} |
154 |
} |
| 155 |
|
155 |
|
| 156 |
- |
|
|