From e87a72406c0f7902c02b12f737dc1e8b0a9434d1 Mon Sep 17 00:00:00 2001
From: Michael Joseph <michael@knowledgetree.com>
Date: Thu, 29 Jul 2004 10:19:35 +0000
Subject: [PATCH] Added check for a leading slash on the target page.

---
 lib/session/control.inc | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/session/control.inc b/lib/session/control.inc
index a058921..644dbf0 100644
--- a/lib/session/control.inc
+++ b/lib/session/control.inc
@@ -64,7 +64,8 @@ function generateLink($sTargetPage, $sQueryString, $sLinkText = "") {
     $sQueryStringDelimiter = strlen($sQueryString) > 0 ? (strstr($sTargetPage, "?") ? "&" : "?") : "";
 
     $sLink = "http" . ($default->sslEnabled ? "s" : "") . "://" . $default->serverName . 
-             ((substr($sTargetPage, 0, strlen($default->rootUrl)) != $default->rootUrl) ? $default->rootUrl : "") . 
+             ((substr($sTargetPage, 0, strlen($default->rootUrl)) != $default->rootUrl) ? $default->rootUrl : "") .
+             (substr($sTargetPage, 0, 1) == "/" ? "" : "/") . 
              $sTargetPage . $sQueryStringDelimiter . $sQueryString;
 
     return (strlen($sLinkText) > 0) ? "<a href=\"$sLink\">$sLinkText</a>" : $sLink;
--
libgit2 0.21.4