From 1c92b36f5d7fa7d985aa5a22add4c4db2ecf7aa4 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Thu, 4 Oct 2007 21:28:44 +0000
Subject: [PATCH] File user profile fields now link to file

---
 docs/changelog/7.x.x.txt | 1 +
 lib/WebGUI/Form/File.pm  | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 7f901cb18..18ce5df88 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -9,6 +9,7 @@
  - fix: hover help doesn't appear for matrix fields
  - Collaboration systems should always tell browser there is new content
  - fix: Good Bad fields not properly localized
+ - fix: File user profile fields didn't link to the file
 
 7.4.8
  - fix: Syndicated Content doesn't display all items with multiple feeds in interleaved mode
diff --git a/lib/WebGUI/Form/File.pm b/lib/WebGUI/Form/File.pm
index b3d277dfc..52ecd05b4 100644
--- a/lib/WebGUI/Form/File.pm
+++ b/lib/WebGUI/Form/File.pm
@@ -143,7 +143,7 @@ sub displayValue {
 	return '' unless $self->get("value");
 	my $location = WebGUI::Storage->get($self->session,$self->get("value"));
 	my $file = shift @{ $location->getFiles };
-	my $fileValue = sprintf qq|<img src="%s" />&nbsp;%s|, $location->getFileIconUrl($file), $file; 
+	my $fileValue = sprintf qq|<img src="%s" />&nbsp;<a href="%s">%s</a>|, $location->getFileIconUrl($file), $location->getUrl($file), $file; 
 	return $fileValue;
 }