X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/423d297ed8c97ba5dff7c79e48d9ee3bab609cd1..d0304c2088dd2e893c5ad3408b5693ed4ebfc84c:/common.inc.plp diff --git a/common.inc.plp b/common.inc.plp index 1e3f30a..21cbc0d 100644 --- a/common.inc.plp +++ b/common.inc.plp @@ -8,7 +8,7 @@ use open ':std' => ':utf8'; use File::stat 'stat'; use HTTP::Date; -use Shiar_Sheet::KeySigns qw(%sign); # dependant on $get{ascii} +use Shiar_Sheet::KeySigns qw(%sign); our $style; our $showkeys = !exists $get{keys} ? undef : @@ -34,7 +34,7 @@ sub stylesheet { return join "\n", map { sprintf( '', - $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css?1.5", $_ + $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css?1.6", $_ ) } @_; } @@ -77,7 +77,7 @@ sub Html { !$showkeys ? '' : $showkeys eq 'ghost' ? '' : (), - '', + '', ) if $meta->{keys}; # flatten arrays @@ -87,7 +87,6 @@ sub Html { ref $_ eq 'ARRAY' and $_ = stylesheet(@$_)."\n" for $meta->{stylesheet}; # other vars - my $sep = $meta->{charset} eq 'utf-8' ? '•' : ' -- '; my ($file) = $ENV{SCRIPT_FILENAME} =~ m{ ([^/]+) \.plp$ }x; # leading output @@ -116,7 +115,7 @@ EOT rel="code" title="Written in Perl">plp $meta->{version} - created by $sep + created by $sign{sep} AGPLv3