From dccd2f398d7284ebf1584f84eaa9df9e5a0b609a Mon Sep 17 00:00:00 2001
From: Tom Copeland <tomcopeland@users.sourceforge.net>
Date: Thu, 20 Nov 2003 17:32:04 +0000
Subject: [PATCH] Added anchors

git-svn-id: https://pmd.svn.sourceforge.net/svnroot/pmd/trunk@2407 51baf565-9d33-0410-a72c-fc3788e3496d
---
 pmd-web/src/upload_webpmd.sh | 1 +
 pmd-web/src/webpmd.pl        | 9 ++++++---
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/pmd-web/src/upload_webpmd.sh b/pmd-web/src/upload_webpmd.sh
index aa2a56a054..17e510297a 100755
--- a/pmd-web/src/upload_webpmd.sh
+++ b/pmd-web/src/upload_webpmd.sh
@@ -1,2 +1,3 @@
 #!/bin/bash
 scp webpmd.pl tomcopeland@pmd.sf.net:/home/groups/p/pm/pmd/cgi-bin/
+scp PMD/Project.pm tomcopeland@pmd.sf.net:/home/groups/p/pm/pmd/cgi-bin/PMD/
diff --git a/pmd-web/src/webpmd.pl b/pmd-web/src/webpmd.pl
index 3cc9280098..a19ca85659 100644
--- a/pmd-web/src/webpmd.pl
+++ b/pmd-web/src/webpmd.pl
@@ -59,7 +59,9 @@ sub loadProjectList() {
 		if (-e $project->getRptFile()) {
 			$jobLink="<a href=\"@{[$project->getRptURL]}\">@{[$project->getTitle()]}</a>";
 		}
-		$result="${result}<tr><td>${jobLink}</td><td></td><td>@{[$project->getHomePage()]}</td>";
+		$result="${result}\n<tr><td>${jobLink}</td>";
+		$result="${result}<td></td>";
+		$result="${result}<td><a name=\"@{[$project->getUnixName()]}\"></a>@{[$project->getHomePage()]}</td>";
 		$result="${result}<td>@{[$project->getNCSS()]}</td>";
 		my $pctg = $project->getPctg();
 		my $color="red";
@@ -73,12 +75,13 @@ sub loadProjectList() {
 			$pctg = "N/A";
 			$color = "white";
 		}
-		$result="${result}<td align=center>@{[$project->getLines()]}</td><td bgcolor=$color align=center>$pctg</td>";
+		$result="${result}<td align=center>@{[$project->getLines()]}</td>";
+		$result="${result}<td bgcolor=$color align=center>$pctg</td>";
 		my $cpdLink="0";
 		if (-e $project->getCPDRptFile() && $project->getCPDLines() > 0) {
 			$cpdLink="<a href=\"@{[$project->getCPDRptURL]}\">@{[$project->getCPDLines()]}</a>";
 		}
-		$result = "${result}<td align=center>$cpdLink</td></tr>";
+		$result = "${result}<td align=center>$cpdLink</td></tr>\n";
 	}
 	$result="${result}</tr></table>";
 	return $result;