a_href "size"=>2 forces the size indicator even for properly non-suffixed files.

[MyWeb.git] / Project.pm

diff --git a/Project.pm b/Project.pm
index 3d836d8..ab40eb7 100644 (file)
--- 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;
 }