use warnings;
use My::Web;
+require CGI;
use Exporter;
our @EXPORT=qw();
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-//;
"rel_up"=>top_dir('/project/'),
# "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; }
",