From 96af6ed2ceaad72200a5e35722c4fbcb9161de59 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 1 Jun 2009 20:15:21 +0000
Subject: [PATCH] Fix POD, and remove dead label/hoverhelp code which isn't
 used.

---
 lib/WebGUI/Asset/File.pm                   | 6 ++----
 lib/WebGUI/Asset/File/GalleryFile/Photo.pm | 7 +++----
 2 files changed, 5 insertions(+), 8 deletions(-)

diff --git a/lib/WebGUI/Asset/File.pm b/lib/WebGUI/Asset/File.pm
index 884ebadeb..01cf7bd19 100644
--- a/lib/WebGUI/Asset/File.pm
+++ b/lib/WebGUI/Asset/File.pm
@@ -216,8 +216,8 @@ sub getEditForm {
 
 =head2 getEditFormUploadControl
 
-Returns the HTML to render the upload box and link to delete the existing 
-file, if necessary.
+Returns the HTML to display the current photo, if it has one, and a file chooser
+to either upload one, or replace the current one.
 
 =cut
 
@@ -229,8 +229,6 @@ sub getEditFormUploadControl {
 
     if ($self->get("filename") ne "") {
         $html .= WebGUI::Form::readOnly( $session, {
-            label       => $i18n->get('current file'),
-            hoverHelp   => $i18n->get('current file description', 'Asset_File'),
             value       => '<p style="display:inline;vertical-align:middle;"><a href="'.$self->getFileUrl.'"><img src="'.$self->getFileIconUrl.'" alt="'.$self->get("filename").'" style="border-style:none;vertical-align:middle;" /> '.$self->get("filename").'</a></p>'
         });
     }
diff --git a/lib/WebGUI/Asset/File/GalleryFile/Photo.pm b/lib/WebGUI/Asset/File/GalleryFile/Photo.pm
index 39f04b217..d09cfb6fd 100644
--- a/lib/WebGUI/Asset/File/GalleryFile/Photo.pm
+++ b/lib/WebGUI/Asset/File/GalleryFile/Photo.pm
@@ -175,8 +175,9 @@ sub getDownloadFileUrl {
 
 =head2 getEditFormUploadControl
 
-Returns the HTML to render the upload box and link to delete the existing 
-file, if necessary.
+Returns the HTML to display the current photo, if it has one, and a file chooser
+to either upload one, or replace the current one.  Subclasses the master class
+to change i18n labels.
 
 =cut
 
@@ -188,8 +189,6 @@ sub getEditFormUploadControl {
 
     if ($self->get("filename") ne "") {
         $html .= WebGUI::Form::readOnly( $session, {
-            label       => $i18n->get('current file'),
-            hoverHelp   => $i18n->get('current file description'),
             value       => '<p style="display:inline;vertical-align:middle;"><a href="'.$self->getFileUrl.'"><img src="'.$self->getThumbnailUrl.'" alt="'.$self->get("filename").'" style="border-style:none;vertical-align:middle;" /> '.$self->get("filename").'</a></p>'
         });
     }