From 6a49e2036b893897e8fb64bbaa0658e910531026 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sun, 19 Jun 2005 21:09:27 +0000
Subject: [PATCH] enable hover help

---
 lib/WebGUI/Asset/File.pm | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/lib/WebGUI/Asset/File.pm b/lib/WebGUI/Asset/File.pm
index a4ff60a1b..b7a373166 100644
--- a/lib/WebGUI/Asset/File.pm
+++ b/lib/WebGUI/Asset/File.pm
@@ -102,13 +102,9 @@ sub duplicate {
 #-------------------------------------------------------------------
 sub getBox {
 	my $self = shift;
-	my %var;
-       	$var{"attachment.icon"} = $self->getFileIconUrl;
-       	$var{"attachment.url"} = $self->getFileUrl;
-       	$var{"attachment.name"} = $self->get("filename");
-       	$var{"attachment.size"} = $self->getStorageLocation->getFileSize;
-       	$var{"attachment.type"} = $self->getStorageLocation->getFileExtension;
-       	return $self->processTemplate(\%var,"PBtmpl0000000000000003");
+	my $var = {};
+        $self->getStorageLocation->getVars($self->get("filename"),$var);
+       	return $self->processTemplate($var,"PBtmpl0000000000000003");
 }
 
 #-------------------------------------------------------------------
@@ -125,6 +121,7 @@ sub getEditForm {
 	if ($self->get("filename") ne "") {
 		$tabform->getTab("properties")->readOnly(
 			-label=>WebGUI::International::get('current file', 'Asset_File'),
+			-hoverHelp=>WebGUI::International::get('current file description', 'Asset_File'),
 			-value=>'<a href="'.$self->getFileUrl.'"><img src="'.$self->getFileIconUrl.'" alt="'.$self->get("filename").'" border="0" align="middle" /> '.$self->get("filename").'</a>'
 			);
 		
@@ -132,6 +129,7 @@ sub getEditForm {
         $tabform->getTab("properties")->file(
                	-name=>"file",
 		-label=>WebGUI::International::get('new file', 'Asset_File'),
+		-hoverHelp=>WebGUI::International::get('new file description', 'Asset_File'),
                	);
 	return $tabform;
 }