X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=blobdiff_plain;f=Project.pm;h=ab40eb73a0104cde383eb4bf68c0a45b00b7a00d;hp=3d836d8b95098eb82a6804cc062537a29eb43992;hb=23bbfdb08c25726bc9687423c10dd28b08753436;hpb=633dc05b0519d86762bd084d872d34f9183237e0

diff --git a/Project.pm b/Project.pm
index 3d836d8..ab40eb7 100644
--- a/Project.pm
+++ b/Project.pm
@@ -39,6 +39,7 @@ sub print_project
 my($class,$ListItem,%args)=@_;
 
 	print "<h1>".$W->{"title"}."</h1>\n";
+	do { print $_ if $_; } for ($args{"project_text_after_title"});
 	print $ListItem->{"description"};
 	print "<hr />\n";
 	print $args{"before_project_data"} || "";
@@ -85,7 +86,7 @@ my($class,$ListItem,%args)=@_;
 						return "Download".$_[0];
 						},
 				"format"=>sub ($) {
-						return a_href($_[0],CGI::escapeHTML(File::Basename::basename($_[0])));
+						return a_href($_[0],CGI::escapeHTML(File::Basename::basename($_[0])),"size"=>2);
 						}},
 		{"key"=>qr(^link\b),"text"=>sub ($) {
 						$_[0]=~s/^link-//;
@@ -196,7 +197,7 @@ my($class,%args)=@_;
 			map(("rel_$_"=>top_dir('/project/Rel.pl?rel='.$_.'&project='.($args{"__PACKAGE__"}=~/^.*::([^:]+)::[^:]+$/)[0])),
 					qw(prev next)),
 			"rel_up"=>top_dir('/project/'),
-			"rel_start"=>top_dir(),
+#			"rel_start"=>top_dir(),	# TODO:homepage
 			%args,
 			"head_css"=>($args{"head_css"} || "")."
 table.print_project td { vertical-align: top; }
@@ -288,7 +289,16 @@ my($class,$platform_selected,%args)=@_;
 
 	my $r="";
 	$r.='<table border="0" align="center"><tr>'."\n";
-		$r.='<td>Projects:&nbsp;&nbsp;</td>';
+		$r.='<td>';
+			$r.='<table border="1" align="center"'	# align="left"
+					.' style="border-collapse: collapse; border-style: solid; border-width: 1px;">'."\n";
+				$r.='<tr>'."\n";
+					$r.='<td style="padding: 5px; font-weight: bold;">'."\n";
+						$r.='Projects';
+					$r.='</td>'."\n";
+				$r.='</tr>'."\n";
+			$r.='</table>';
+		$r.='</td>';
 		$r.='<td>';
 			$r.='<table border="1" align="center" style="border-collapse: collapse; border-style: solid;">'."\n";
 				$r.='<tr>'."\n";
@@ -308,7 +318,10 @@ my($class,$platform_selected,%args)=@_;
 			$r.='</table>'."\n";
 		$r.='</td>'."\n";
 	$r.='</tr></table>'."\n";
-	$r.=vskip "1ex" if !$args{"novskip"};
+	if (!$args{"novskip"}) {
+		$r.="<hr />\n";
+		$r.=My::Web::vskip "6ex";
+		}
 	$r;
 }