fixed redirect and added edit titles

lib/WebGUI/Asset.pm

@@ -764,6 +764,10 @@ sub update {
 	return 1;
 }
 
+sub view {
+	return "";
+}
+
 sub www_add {
 	my $self = shift;
 	my %properties = (

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;

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

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 {

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