+Comment: FIXME: "head_css" no longer exists in My::Web branch "apache2"

[MyWeb.git] / Project.pm

diff --git a/Project.pm b/Project.pm
index dd17b23..bbcee8a 100644 (file)
--- a/Project.pm
+++ b/Project.pm
@@ -24,6 +24,7 @@ use strict;
 use warnings;
 
 use My::Web;
+require CGI;
 
 use Exporter;
 our @EXPORT=qw();
@@ -86,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-//;
@@ -197,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; }
 ",