git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
countries: abbreviate West and East names
[sheet.git]
/
common.inc.plp
diff --git
a/common.inc.plp
b/common.inc.plp
index 31c2c2270b71e209a20cf885fe0363ad623066e6..7935a8e4a31c158c6e42ce425a90700c23351dc1 100644
(file)
--- 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};
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} }, (
'<!--[if lte IE 6]><style> .help dl.legend dt {margin:0 0 1px} </style><![endif]-->',
# optional amends
push @{ $meta->{raw} }, (
'<!--[if lte IE 6]><style> .help dl.legend dt {margin:0 0 1px} </style><![endif]-->',
@@
-116,7
+120,6
@@
sub Html {
) if $meta->{keys};
# leading output
) if $meta->{keys};
# leading output
- $header{content_type} = "text/html; charset=$meta->{charset}";
say '<!DOCTYPE html>';
say '<html lang="en">';
say '';
say '<!DOCTYPE html>';
say '<html lang="en">';
say '';
@@
-129,7
+132,6
@@
sub Html {
for join(', ', @{ $meta->{keywords} }) || ();
say '<meta name="viewport" content="width=device-width, initial-scale=1">';
say '<link rel="icon" type="image/png" href="/clip.png">';
for join(', ', @{ $meta->{keywords} }) || ();
say '<meta name="viewport" content="width=device-width, initial-scale=1">';
say '<link rel="icon" type="image/png" href="/clip.png">';
- say for stylesheet($meta->{stylesheet});
say for map { @{$_} } $meta->{raw} || ();
say '<meta name="robots" content="noindex">' if $Dev;
say '</head>';
say for map { @{$_} } $meta->{raw} || ();
say '<meta name="robots" content="noindex">' if $Dev;
say '</head>';
@@
-166,3
+168,11
@@
EOT
};
}
};
}
+sub showlink {
+ my ($title, $href, $selected) = @_;
+ return sprintf(
+ $selected ? '<strong>%s</strong>' : '<a href="%2$s">%s</a>',
+ EscapeHTML($title), EscapeHTML($href)
+ );
+}
+