BEGIN {
$PLP::ERROR = sub {
- my ($text, $html) = @_;
- warn $text;
+ my ($message, $html) = @_;
+ if (ref $message) {
+ warn join ': ', @{$message};
+ $html = shift @{$message};
+ }
+ else {
+ warn $message;
+ $message = [];
+ }
unless ($PLP::sentheaders) {
Html({nocache => 1});
say '<h1>Page unavailable</h1>';
}
- Alert("<strong>Fatal error</strong>: $html.");
+ Alert("Fatal error: $html.", @{$message});
};
}
Also see <a href="/writing">related alphabets</a>
and <a href="/chars/abc">font comparison</a>.</p>
-<div>
-
<:
use List::Util qw( pairs );
my @table = do 'writing-latn.inc.pl';
-if ($! or $@) {
- Alert("Table data not found", $@ || $!);
+if ($! or $@ or !@table) {
+ die ["Table data not found", $@ || $!];
}
else {
+ say '<div>';
say '<style>';
for my $row (pairs @table) {
my ($id, $info) = @{$row};
say;
}
}
- say "</table>\n";
+ say "</table></div>";
}
-:></div>
-
+:>
<script type="text/javascript" src="/latinsample.js"></script>
<script type="text/javascript"><!--
prependinput(document.getElementById('intro'));