From 17a75b3a1f0b4bd13733e0953a884443cae9b153 Mon Sep 17 00:00:00 2001
From: Tom Rix <tom@rixth.org>
Date: Mon, 1 Mar 2010 21:38:19 +0000
Subject: [PATCH] BUGFIX: Fixed link labelling and behaviour in Related page
 tab (from r89837)

---
 code/RelatedPageLink.php  | 7 ++++++-
 code/SiteTreeSubsites.php | 5 +++--
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/code/RelatedPageLink.php b/code/RelatedPageLink.php
index 1ed8012..b69a581 100644
--- a/code/RelatedPageLink.php
+++ b/code/RelatedPageLink.php
@@ -60,8 +60,13 @@ class RelatedPageLink extends DataObject {
 	}
 	
 	function RelatedPageAdminLink() {
-		return '<a href="admin/show/' . $this->RelatedPage()->ID . '" class="externallink" >' . Convert::raw2xml($this->RelatedPage()->Title) . '</a>';
+		return '<a href="admin/show/' . $this->RelatedPage()->ID . '" class="cmsEditlink">' . Convert::raw2xml($this->RelatedPage()->Title) . '</a>';
 	}
+	function AbsoluteLink() {
+		$url = $this->RelatedPage()->AbsoluteLink();
+		return '<a href="' . Convert::raw2att($url) .'" class="externallink">' . Convert::raw2xml($url) . '</a>';
+	}
+
 	/*
 	function canView($member = null) {
 		return $this->MasterPage()->canView($member);
diff --git a/code/SiteTreeSubsites.php b/code/SiteTreeSubsites.php
index e288de3..0413ce8 100644
--- a/code/SiteTreeSubsites.php
+++ b/code/SiteTreeSubsites.php
@@ -178,7 +178,8 @@ class SiteTreeSubsites extends SiteTreeDecorator {
 					'RelatedPages',
 					'RelatedPageLink',
 					array(
-						'RelatedPageAdminLink' => 'Page'
+						'RelatedPageAdminLink' => 'Page',
+						'AbsoluteLink' => 'URL',
 					)
 			)
 		);
@@ -189,7 +190,7 @@ class SiteTreeSubsites extends SiteTreeDecorator {
 		if($reverse) {
 			$text = '<p>In addition, this page is marked as related by the following pages: </p><ul>';
 			foreach($reverse as $rpage) {
-				$text .= '<ul><a href="admin/show/' . $rpage->ID . '">' . $rpage->Title . '</a> '.$rpage->AbsoluteLink().'</ul>';
+				$text .= '<ul><a href="admin/show/' . $rpage->ID . '" class="cmsEditlink">' . $rpage->Title . '</a> '.$rpage->AbsoluteLink().'</ul>';
 			}
 			$text .= '</ul>';