From b43baa8acbc5f71c061d54e7d476ae54e9c1adb4 Mon Sep 17 00:00:00 2001
From: JT Smith <jt@plainblack.com>
Date: Sat, 25 Dec 2004 19:43:27 +0000
Subject: [PATCH] fixed redirect and added edit titles

---
 lib/WebGUI/Asset.pm            | 4 ++++
 lib/WebGUI/Asset/File.pm       | 7 +++++++
 lib/WebGUI/Asset/File/Image.pm | 7 +++++++
 lib/WebGUI/Asset/FilePile.pm   | 2 +-
 lib/WebGUI/Asset/Redirect.pm   | 8 ++++++++
 5 files changed, 27 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index 22df8f426..373bc9418 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -764,6 +764,10 @@ sub update {
 	return 1;
 }
 
+sub view {
+	return "";
+}
+
 sub www_add {
 	my $self = shift;
 	my %properties = (
diff --git a/lib/WebGUI/Asset/File.pm b/lib/WebGUI/Asset/File.pm
index f6b938e5a..a2fdf0d48 100644
--- a/lib/WebGUI/Asset/File.pm
+++ b/lib/WebGUI/Asset/File.pm
@@ -204,6 +204,13 @@ sub view {
 }
 
 
+#-------------------------------------------------------------------
+sub www_edit {
+        my $self = shift;
+        return WebGUI::Privilege::insufficient() unless $self->canEdit;
+        return $self->getAdminConsole->render($self->getEditForm->print,"Edit File");
+}
+
 
 sub www_view {
 	my $self = shift;
diff --git a/lib/WebGUI/Asset/File/Image.pm b/lib/WebGUI/Asset/File/Image.pm
index d16fc68a4..52192c040 100644
--- a/lib/WebGUI/Asset/File/Image.pm
+++ b/lib/WebGUI/Asset/File/Image.pm
@@ -213,6 +213,13 @@ sub view {
 
 
 
+#-------------------------------------------------------------------
+sub www_edit {
+        my $self = shift;
+        return WebGUI::Privilege::insufficient() unless $self->canEdit;
+        return $self->getAdminConsole->render($self->getEditForm->print,"Edit Image");
+}
+
 #-------------------------------------------------------------------
 
 =head2 www_view
diff --git a/lib/WebGUI/Asset/FilePile.pm b/lib/WebGUI/Asset/FilePile.pm
index 087ea7c9b..ff3321f2c 100644
--- a/lib/WebGUI/Asset/FilePile.pm
+++ b/lib/WebGUI/Asset/FilePile.pm
@@ -169,7 +169,7 @@ sub edit {
 		-name=>"file",
 		-label=>"Upload File"
 		);
-	return $self->getAdminConsole->render($tabform->print);
+	return $self->getAdminConsole->render($tabform->print,"Add a Pile of Files");
 }
 
 sub editSave {
diff --git a/lib/WebGUI/Asset/Redirect.pm b/lib/WebGUI/Asset/Redirect.pm
index 2025302bd..00a1c7c1b 100644
--- a/lib/WebGUI/Asset/Redirect.pm
+++ b/lib/WebGUI/Asset/Redirect.pm
@@ -89,6 +89,7 @@ sub getEditForm {
                 -label=>"Redirect URL",
                 -value=>$self->getValue("redirectUrl")
                 );
+	return $tabform;
 }
 
 
@@ -126,6 +127,13 @@ sub getName {
 } 
 
 
+#-------------------------------------------------------------------
+sub www_edit {
+        my $self = shift;
+        return WebGUI::Privilege::insufficient() unless $self->canEdit;
+        return $self->getAdminConsole->render($self->getEditForm->print,"Edit Redirect");
+}
+
 #-------------------------------------------------------------------
 
 =head2 www_view