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

diff --git a/Project.pm b/Project.pm
index 3d836d8..bbcee8a 100644
--- a/Project.pm
+++ b/Project.pm
@@ -24,6 +24,7 @@ use strict;
 use warnings;
 
 use My::Web;
+require CGI;
 
 use Exporter;
 our @EXPORT=qw();
@@ -39,6 +40,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 +87,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,8 +198,9 @@ 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,
+			# FIXME: "head_css" no longer exists in My::Web branch "apache2"
 			"head_css"=>($args{"head_css"} || "")."
 table.print_project td { vertical-align: top; }
 ",
@@ -288,7 +291,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 +320,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;
 }