git.shiar.nl
/
sheet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
05b96f1
)
prepare html for stylesheet includes to allow scalar override
author
Mischa POSLAWSKY
<perl@shiar.org>
Sat, 6 Feb 2010 01:18:52 +0000
(
01:18
+0000)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Sat, 6 Feb 2010 01:18:52 +0000
(
01:18
+0000)
common.inc.plp
patch
|
blob
|
history
diff --git
a/common.inc.plp
b/common.inc.plp
index fb1d54ac32d00c0b4fa76ef80c5f4961b9a6d320..b3a9a70520660bf4fffeb0319a2b826275a8e34b 100644
(file)
--- a/
common.inc.plp
+++ b/
common.inc.plp
@@
-57,6
+57,7
@@
sub Html {
ref $_ eq 'ARRAY' and $_ = join ' ', @$_ for $meta->{description};
ref $_ eq 'ARRAY' and $_ = join ', ', @$_ for $meta->{keywords};
ref $_ eq 'ARRAY' and $_ = join "\n", @$_ for $meta->{rawstyle}, $meta->{raw};
ref $_ eq 'ARRAY' and $_ = join ' ', @$_ for $meta->{description};
ref $_ eq 'ARRAY' and $_ = join ', ', @$_ for $meta->{keywords};
ref $_ eq 'ARRAY' and $_ = join "\n", @$_ for $meta->{rawstyle}, $meta->{raw};
+ ref $_ eq 'ARRAY' and $_ = stylesheet(@$_)."\n" for $meta->{stylesheet};
# other vars
my $sep = $meta->{charset} eq 'utf-8' ? '•' : ' -- ';
# other vars
my $sep = $meta->{charset} eq 'utf-8' ? '•' : ' -- ';
@@
-76,7
+77,7
@@
sub Html {
<meta name="keywords" content="$meta->{keywords}">
<link rel="icon" type="image/png" href="/clip.png">
EOT
<meta name="keywords" content="$meta->{keywords}">
<link rel="icon" type="image/png" href="/clip.png">
EOT
- print
stylesheet(@$_)
, "\n" for $meta->{stylesheet} || ();
+ print
$_
, "\n" for $meta->{stylesheet} || ();
print $_, "\n" for $meta->{raw} || ();
print qq{</head>\n\n<body id="$file">\n};
print $_, "\n" for $meta->{raw} || ();
print qq{</head>\n\n<body id="$file">\n};