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

[www.jankratochvil.net.git] / project / captive / Preview.pm

diff --git a/project/captive/Preview.pm b/project/captive/Preview.pm
index ad82a68..5b485a2 100755 (executable)
--- a/project/captive/Preview.pm
+++ b/project/captive/Preview.pm
@@ -31,9 +31,7 @@ sub handler
 {
 My::Web->init(
                "title"=>'Captive NTFS Technology Preview',
-               "head"=><<"HERE",
-<link rel="stylesheet" type="text/css" href="@{[ uri_escaped(path_web "./Preview.css") ]}" />
-HERE
+               "css_push"=>"./Preview.css",
                "heading_novskip"=>1,
                );
 My::Web->heading();