X-Git-Url: http://git.jankratochvil.net/?p=MyWeb.git;a=blobdiff_plain;f=Project.pm;h=ab40eb73a0104cde383eb4bf68c0a45b00b7a00d;hp=dd17b2394fd4ab1a4d5f1966c003fae09e162eb7;hb=23bbfdb08c25726bc9687423c10dd28b08753436;hpb=c592400f0585f322861c905b6dde126ccf912091;ds=sidebyside

diff --git a/Project.pm b/Project.pm
index dd17b23..ab40eb7 100644
--- a/Project.pm
+++ b/Project.pm
@@ -86,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-//;
@@ -197,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; }