X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=blobdiff_plain;f=project%2FLib.pm;h=86c900f4d4f3efde7cadf355dd51fd8d20d2de9d;hp=67bc50a3e634914eabe5f27e4210de3f42de595f;hb=f37f652212eb6cb31136488d14d2c2a3908fe30a;hpb=96937bad4fbd9645473d61618509074b45e7e17d

diff --git a/project/Lib.pm b/project/Lib.pm
index 67bc50a..86c900f 100644
--- 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();