From 5a56e504916a9c2e8078fde68a5ff02b4ff963b6 Mon Sep 17 00:00:00 2001
From: Greg Roach <fisharebest@gmail.com>
Date: Fri, 20 Dec 2013 19:54:24 +0000
Subject: #1262546 - WWW & URL tag clickability

---
 includes/functions/functions_print_facts.php | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/includes/functions/functions_print_facts.php b/includes/functions/functions_print_facts.php
index 37a28319cd..be5e8811d1 100644
--- a/includes/functions/functions_print_facts.php
+++ b/includes/functions/functions_print_facts.php
@@ -269,6 +269,7 @@ function print_fact(WT_Fact $fact, WT_GedcomRecord $record) {
 		}
 		break;
 	case 'URL':
+	case '_URL':
 	case 'WWW':
 		echo '<div class="field"><a href="', WT_Filter::escapeHtml($fact->getValue()), '">', WT_Filter::escapeHtml($fact->getValue()), '</a></div>';
 		break;
@@ -416,6 +417,12 @@ function print_fact(WT_Fact $fact, WT_GedcomRecord $record) {
 				echo WT_Gedcom_Tag::getLabelValue('TYPE', WT_Gedcom_Tag::getFileFormTypeValue($type_match[1]));
 			}
 			break;
+		case 'URL':
+		case '_URL':
+		case 'WWW':
+			$link = '<a href="' . WT_Filter::escapeHtml($match[2]) . '">' . WT_Filter::escapeHtml($match[2]) . '</a>';
+			echo WT_Gedcom_Tag::getLabelValue($fact->getTag().':'.$match[1], $link);
+			break;
 		default:
 			if (!$HIDE_GEDCOM_ERRORS || WT_Gedcom_Tag::isTag($match[1])) {
 				if (preg_match('/^@(' . WT_REGEX_XREF . ')@$/', $match[2], $xmatch)) {
-- 
cgit v1.3