git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
apl: reorder operator data and find missing descriptions
[sheet.git]
/
common.inc.plp
diff --git
a/common.inc.plp
b/common.inc.plp
index 963b8a6d1f4a8ef33a7685326c91ed8ae6163862..c6b0c84f69909cbd2432a94328613b51b393fe52 100644
(file)
--- a/
common.inc.plp
+++ b/
common.inc.plp
@@
-10,6
+10,11
@@
use File::stat 'stat';
use HTTP::Date;
use Shiar_Sheet::KeySigns qw(%sign);
use HTTP::Date;
use Shiar_Sheet::KeySigns qw(%sign);
+$PLP::ERROR = sub {
+ my ($text, $html) = @_;
+ print '<p class="error"><strong>Fatal error</strong>: '.$html."</p>\n\n";
+};
+
our $style;
our $showkeys = !exists $get{keys} ? undef :
($get{keys} ne '0' && ($get{keys} || 'always'));
our $style;
our $showkeys = !exists $get{keys} ? undef :
($get{keys} ne '0' && ($get{keys} || 'always'));