phoedos/pmd
1
1
Fork 1
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Cleaned up CPD display a bit

Browse Source 
git-svn-id: https://pmd.svn.sourceforge.net/svnroot/pmd/trunk@2104 51baf565-9d33-0410-a72c-fc3788e3496d
This commit is contained in:
Tom Copeland
2003-07-18 20:44:39 +00:00
parent 3c8f9782c2
commit b288ec7b4f
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -68,7 +68,7 @@ sub loadProjectList() {
@newprojects = sort { $b->getLocation() cmp $a->getLocation() || $a->getTitle() cmp $b->getTitle() } @projects;
my $result="<table align=center><tr><th>Project</th><th></th><th>Home page</th><th>NCSS</th><th>Problems</th><th>Percentage Unused Code</th><th>Duplicate Code</th></tr>";
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 $jobLink=$project->getTitle();
if (-e $project->getRptFile()) {
@ -93,8 +93,8 @@ sub loadProjectList() {
$color = "white";
}
$result="${result}<td align=center>@{[$project->getLines()]}</td><td bgcolor=$color align=center>$rounded</td>";
my $cpdLink="TBD";
if (-e $project->getCPDRptFile()) {
my $cpdLink="0";
if (-e $project->getCPDRptFile() && $project->getCPDLines() > 0) {
$cpdLink="<a href=\"@{[$project->getCPDRptURL]}\">@{[$project->getCPDLines()]}</a>";
}
$result = "${result}<td bgcolor=$color>$cpdLink</td></tr>";