"pipermail_url_sub"=>sub () { return "http://".&{$My::Web::W->{"web_hostname_sub"}}."/pipermail/"; },
"heading"=>sub () {
print '<table border="0" align="center" style="font-size: larger;">'."\n";
- print '<col width="20%">'."\n";
- print '<col width="50%">'."\n";
- print '<col width="20%">'."\n";
+# print '<col width="20%">'."\n";
+# print '<col width="50%">'."\n";
+# print '<col width="20%">'."\n";
print '<tr>'."\n";
print '<td>'."\n";
- print '<table border="1" align="left"'
+ print '<table border="1" align="center"' # align="left"
.' style="border-collapse: collapse; border-style: solid; border-width: 2px;">'."\n";
print '<tr>'."\n";
print '<td style="padding: 5px; font-weight: bold;">'."\n";
print '</td>'."\n";
print '</tr>'."\n";
print '</table>'."\n";
- print My::Web::vskip("1ex") if !$My::Web::W->{"WebConfig::heading_novskip"};
+ if (!$My::Web::W->{"WebConfig::heading_novskip"}) {
+ print "<hr />\n";
+ print My::Web::vskip("6ex");
+ }
},
"footing"=>sub () {
# print "<h1>footing</h1>\n";
My::Web->heading();
print My::Project->views("Detailed");
-print My::Project->platforms(undef());
+print My::Project->platforms(undef(),"novskip"=>1);
my %item=( My::Project::item_hash_read() );
my $CGI=CGI->new();
print My::Project->views(($W->{"args"}{"platform"} ? "BriefPlatform" : "BriefUnified"));
-print My::Project->platforms(undef()) if $W->{"args"}{"platform"};
+print My::Project->platforms(undef(),"novskip"=>1) if $W->{"args"}{"platform"};
my %item=( My::Project::item_hash_read() );