X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/ec0363c510a8c9ee62a0d0558696d5a923bb997f..3301a8a999962dee1aa9a6e6c32e3a72e8367f6c:/common.inc.plp
diff --git a/common.inc.plp b/common.inc.plp
index 31c2c22..7935a8e 100644
--- a/common.inc.plp
+++ b/common.inc.plp
@@ -105,6 +105,10 @@ sub Html {
ref $_ eq 'ARRAY' or $_ = [$_]
for grep {$_} $meta->{raw}, $meta->{description}, $meta->{keywords};
+ # document headers before output
+ $header{content_type} = "text/html; charset=$meta->{charset}";
+ unshift @{ $meta->{raw} }, stylesheet($meta->{stylesheet});
+
# optional amends
push @{ $meta->{raw} }, (
'',
@@ -116,7 +120,6 @@ sub Html {
) if $meta->{keys};
# leading output
- $header{content_type} = "text/html; charset=$meta->{charset}";
say '';
say '';
say '';
@@ -129,7 +132,6 @@ sub Html {
for join(', ', @{ $meta->{keywords} }) || ();
say '';
say '';
- say for stylesheet($meta->{stylesheet});
say for map { @{$_} } $meta->{raw} || ();
say '' if $Dev;
say '';
@@ -166,3 +168,11 @@ EOT
};
}
+sub showlink {
+ my ($title, $href, $selected) = @_;
+ return sprintf(
+ $selected ? '%s' : '%s',
+ EscapeHTML($title), EscapeHTML($href)
+ );
+}
+