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

[www.jankratochvil.net.git] / project / Lib.pm

diff --git a/project/Lib.pm b/project/Lib.pm
index 67bc50a..86c900f 100644 (file)
--- a/project/Lib.pm
+++ b/project/Lib.pm
@@ -42,14 +42,14 @@ sub LIST_FILENAME()
 
 sub print_project
 {
-my($class,$ListItem,%args)=@_;
+my($class,$ListItem)=@_;
 
-       print "<h1>".$W->{"title"}."</h1>\n";
-       do { print $_ if $_; } for ($args{"project_text_after_title"});
+       print "<h1>".$class->title($ListItem)."</h1>\n";
+       do { print $_ if $_; } for ($W->{"project_text_after_title"});
        print $ListItem->{"description"};
        print "<hr />\n";
-       print($args{"before_project_data"}||"");
-       return if $args{"no_project_data"};
+       print($W->{"before_project_data"}||"");
+       return if $W->{"no_project_data"};
        my @table=(
                {"key"=>"summary","text"=>"Summary"},
                {"key"=>"license","text"=>"License","format"=>sub ($) {
@@ -263,14 +263,12 @@ my($class,%args)=@_;
                        or cluck "Error finding project name of the package: ".$args{"__PACKAGE__"};
        my $ListItem=$class->name_to_hashref($args{"project_name"});
        my $W=$class->SUPER::init(
-                       "title"=>$class->title($ListItem),
+                       "title"=>My::Web->a_href_inhibit(sub { return $class->title($ListItem); }),
                        map(("rel_$_"=>'/project/Rel.pm?rel='.$_.'&project='.$args{"project_name"}),qw(prev next)),
                        "rel_up"=>'/project/',
 #                      "rel_start"=>"/",       # TODO:homepage
+                       "css_push"=>"/project/Lib.css",
                        %args,
-                       "head"=>($args{"head"}||"").<<"HERE",
-<link rel="stylesheet" type="text/css" href="@{[ uri_escaped(path_web "/project/Lib.css") ]}" />
-HERE
                        "heading_novskip"=>1,
                        );
        $class->heading();