Customise PLP errors in distinctive red box instead of default plain table.
margin: 0;
}
+.error {
+ background: #F00;
+ background: rgba(255, 0, 0, .8);
+ color: #FFF;
+ border: 2px solid #000;
+ border-width: 2px 0;
+ padding: 1em;
+ margin: 2ex auto;
+ clear: both;
+}
+
ul {
margin: 0;
padding: 0;
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'));