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

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

diff --git a/project/captive/Index.pm b/project/captive/Index.pm
index 68e3114..b261d60 100755 (executable)
--- a/project/captive/Index.pm
+++ b/project/captive/Index.pm
@@ -64,10 +64,8 @@ sub handler
 {
 my $W=project::Lib->init(
                "no_project_data"=>1,
-               "head"=><<"HERE",
-<link rel="stylesheet" type="text/css" href="@{[ uri_escaped(path_web "./Index.css") ]}" />
-HERE
-               "project_text_after_title"=>""
+               "css_push"=>"./Index.css",
+               "project_text_after_title"=>sub { return ""
                                .'<table border="0" width="100%"><tr><td align="center">'
                                        .'<table border="0" class="navigate"><tr>'
                                                .'<td>&bull;&nbsp;'.a_href('#download','Download').'</td>'
@@ -78,7 +76,8 @@ HERE
                                                .'<td>&bull;&nbsp;'.a_href('#lists','Mailing Lists').'</td>'
                                                .'<td>&bull;&nbsp;'.a_href('#seealso','See Also').'</td>'
                                        .'</tr></table>'
-                               .'</td></tr></table>',
+                               .'</td></tr></table>';
+                               },
                );