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

Made target thing a bit nicer

Browse Source 
git-svn-id: https://pmd.svn.sourceforge.net/svnroot/pmd/trunk@2413 51baf565-9d33-0410-a72c-fc3788e3496d
This commit is contained in:
Tom Copeland
2003-11-21 20:36:42 +00:00
parent 215d95dd59
commit ff937cbee6
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -52,9 +52,15 @@ sub loadProjectList() {
}
@newprojects = sort { $a->getPctg() cmp $b->getPctg() } @projects;
#my $result = $query->param("target");
my $prev2name = "header";
my $count = 0;
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>";
$result="${result}<a name=\"header\"";
foreach $project (@newprojects) {
if ($count+2 < scalar(@newprojects)) {
$prev2name = $newprojects[$count+2]->getUnixName();
}
my $target =$query->param("target");
my $jobLink=$project->getTitle();
if (-e $project->getRptFile()) {
@ -67,7 +73,10 @@ sub loadProjectList() {
}
$result="${result}<td>${jobLink}</td>";
$result="${result}<td></td>";
$result="${result}<td><a name=\"@{[$project->getUnixName()]}\"></a>@{[$project->getHomePage()]}</td>";
$result="${result}<td>";
$result="${result}<a name=\"prev2-${prev2name}\"></a>";
$result="${result}<a name=\"@{[$project->getUnixName()]}\"></a>";
$result="${result}@{[$project->getHomePage()]}</td>";
$result="${result}<td>@{[$project->getNCSS()]}</td>";
my $pctg = $project->getPctg();
my $color="red";
@ -88,6 +97,7 @@ sub loadProjectList() {
$cpdLink="<a href=\"@{[$project->getCPDRptURL]}\">@{[$project->getCPDLines()]}</a>";
}
$result = "${result}<td align=center>$cpdLink</td></tr>\n";
$count += 1;
}
$result="${result}</tr></table>";
return $result;