sub ENTRIES_LOG { return top_dir_disk()."/project/CVS/Entries.Log"; }
-sub print_project ($)
+sub print_project
{
-my($class,$ListItem)=@_;
+my($class,$ListItem,%args)=@_;
print "<h1>".$W->{"title"}."</h1>\n";
print $ListItem->{"description"};
print "<hr />\n";
+ print $args{"before_project_data"} || "";
+ return if $args{"no_project_data"};
my @table=(
{"key"=>"summary","text"=>"Summary"},
{"key"=>"license","text"=>"License","format"=>sub ($) {
my %known=(
"active"=>"Ready to use. Project is now actively developed.",
"ready"=>"Ready to use. Maintained.",
- "pending"=>"Patch is ready to be applied to the mainstream.",
"dead"=>"Dead code, no longer supported.",
"merge"=>"Functions belong to existing other project.",
"obsolete"=>"Obsoleted.",
"update"=>"Package needs updating to recent software.",
"accepted"=>"This patch got already integrated by the original package maintainer.",
+ "pending"=>"Patch is ready to be applied to the mainstream.",
+ "ignored"=>"Patch was ignored. It is not applied in the mainstream.",
""=>"",
);
my @r;
);
$class->heading();
print $class->platforms($ListItem->{"platform"});
- $class->print_project({ %$ListItem });
+ $class->print_project({ %$ListItem },%args);
return $W;
}
}
our @platforms=(
- "unixuser"=>"GNU/Linux",
- "unixdevel"=>"GNU/Linux Development",
+ "unixuser"=>"UNIX",
+ "unixdevel"=>"UNIX-devel",
"web"=>"Web",
"amiga"=>"Amiga",
"w32"=>"MS-Windows",