From 91c3f94ff9df319b548cd332566198b72f8124cd Mon Sep 17 00:00:00 2001
From: jchu <jchu>
Date: Sun, 26 Dec 2004 20:12:46 +0000
Subject: commited neotuli's patch for source links

---
 web/lib/pkgfuncs.inc | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

(limited to 'web/lib/pkgfuncs.inc')

diff --git a/web/lib/pkgfuncs.inc b/web/lib/pkgfuncs.inc
index 7a45bc29..2a6fda28 100644
--- a/web/lib/pkgfuncs.inc
+++ b/web/lib/pkgfuncs.inc
@@ -293,7 +293,17 @@ function package_details($id=0) {
 			print "<tr><td class='boxSoft'>";
 			$sources = package_sources($row["ID"]); # $sources[0] = 'src';
 			while (list($k, $src) = each($sources)) {
-				print "<a href='".$src."'>".$src."</a><br />\n";
+				$parsed_url = parse_url($src);
+				if ($parsed_url['scheme'])
+				{
+					//It is an external source
+					print "<a href='".$src."'>".$src."</a><br />\n";
+				}
+				else 
+				{
+					//It is presumably an internal source
+					print "<a href='".dirname($row['URLPath'])."/".$row['Name']."/".$src."'>".$src."</a><br />\n";
+				}
 			}
 			print "</td></tr>\n";
 			print "</table></td>";
-- 
cgit v1.2.3-24-g4f1b