From ff937cbee6880d7bfa6cc4712de381c9b87e2379 Mon Sep 17 00:00:00 2001
From: Tom Copeland <tomcopeland@users.sourceforge.net>
Date: Fri, 21 Nov 2003 20:36:42 +0000
Subject: [PATCH] Made target thing a bit nicer

git-svn-id: https://pmd.svn.sourceforge.net/svnroot/pmd/trunk@2413 51baf565-9d33-0410-a72c-fc3788e3496d
---
 pmd-web/src/webpmd.pl | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/pmd-web/src/webpmd.pl b/pmd-web/src/webpmd.pl
index 749977185a..a6edbe36d1 100644
--- a/pmd-web/src/webpmd.pl
+++ b/pmd-web/src/webpmd.pl
@@ -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;