+Support for: $W->{"css_push"}

[www.jankratochvil.net.git] / Contact.pm

diff --git a/Contact.pm b/Contact.pm
index 0a5c947..73e982f 100644 (file)
--- a/Contact.pm
+++ b/Contact.pm
@@ -35,9 +35,7 @@ sub handler
 my $W=My::Web->init(
                "title"=>"Contact",
                "section"=>"Contact",
-               "head"=><<"HERE",
-<link rel="stylesheet" type="text/css" href="@{[ uri_escaped(path_web "/Contact.css") ]}" />
-HERE
+               "css_push"=>"./Contact.css",
                );
 My::Web->heading();