X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/9fbe7cd69afa935c523e47d026d90158b1406bc4..d22e7febda8720bc38069f7061adb43b98143c48:/common.inc.plp
diff --git a/common.inc.plp b/common.inc.plp
index e5292ba..e3316fc 100644
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -34,6 +34,8 @@ BEGIN {
Alert("Fatal error: $html.");
};
+ push @INC, '.';
+
# user request
our $Dev = $ENV{HTTP_HOST} =~ /\bdev\./;
our ($file) = $ENV{SCRIPT_FILENAME} =~ m{ ([^/]+) \.plp$ }x;
@@ -70,7 +72,7 @@ sub stylesheet {
return map { sprintf(
'',
- $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css?1.10", $_
+ $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css?1.11", $_
) } @avail;
}
@@ -105,7 +107,7 @@ sub Html {
}
# default fallbacks
- $meta->{stylesheet} ||= [qw'light dark circus mono red terse'];
+ $meta->{stylesheet} ||= [qw( light dark circus mono red )];
$meta->{charset} ||= 'utf-8';
# convert options to arrays
@@ -117,13 +119,17 @@ sub Html {
unless $PLP::sentheaders;
unshift @{ $meta->{raw} }, stylesheet($meta->{stylesheet});
+ push @{ $meta->{raw} }, (
+ '',
+ );
+
# optional amends
push @{ $meta->{raw} }, (
'',
'',
!$showkeys ? '' :
$showkeys eq 'ghost' ? '' : (),
- '',
+ '',
) if $meta->{keys};
# leading output