hiifong/pmd
1
0
Fork 0
forked from phoedos/pmd
Code Pull Requests Activity

Added highlighting of targeted project

Browse Source 
git-svn-id: https://pmd.svn.sourceforge.net/svnroot/pmd/trunk@2408 51baf565-9d33-0410-a72c-fc3788e3496d
This commit is contained in:
Tom Copeland
2003-11-20 18:11:49 +00:00
parent dccd2f398d
commit 10fbcd7746
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pmd-web/src/webpmd.pl
View File

@ -52,14 +52,20 @@ sub loadProjectList() {
}
@newprojects = sort { $a->getPctg() cmp $b->getPctg() } @projects;
#my $result = $query->param("target");
my $result="<table align=center><tr><th>Project</th><th></th><th>Home page</th><th>NCSS</th><th>Problems</th><th>Percentage<br>Unused Code</th><th>Duplicate<br>Code</th></tr>";
foreach $project (@newprojects) {
my $target =$query->param("target");
my $jobLink=$project->getTitle();
if (-e $project->getRptFile()) {
$jobLink="<a href=\"@{[$project->getRptURL]}\">@{[$project->getTitle()]}</a>";
}
$result="${result}\n<tr><td>${jobLink}</td>";
if ($target =~ $project->getUnixName()) {
$result="${result}\n<tr bgcolor=\"lightgrey\">";
} else {
$result="${result}\n<tr>";
}
$result="${result}<td>${jobLink}</td>";
$result="${result}<td></td>";
$result="${result}<td><a name=\"@{[$project->getUnixName()]}\"></a>@{[$project->getHomePage()]}</td>";
$result="${result}<td>@{[$project->getNCSS()]}</td>";