prepare html for stylesheet includes to allow scalar override
authorMischa POSLAWSKY <perl@shiar.org>
Sat, 6 Feb 2010 01:18:52 +0000 (01:18 +0000)
committerMischa POSLAWSKY <perl@shiar.org>
Sat, 6 Feb 2010 01:18:52 +0000 (01:18 +0000)
common.inc.plp

index fb1d54a..b3a9a70 100644 (file)
@@ -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 $_ = stylesheet(@$_)."\n" for $meta->{stylesheet};
 
        # 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
-       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};