From 5a816233522a63b554de800f2961ec64f372fe58 Mon Sep 17 00:00:00 2001
From: Matthew Wilson <matt@plainblack.com>
Date: Thu, 13 Oct 2005 21:53:37 +0000
Subject: [PATCH] adding generalized www_edit

---
 lib/WebGUI/Asset/Wobject.pm | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/lib/WebGUI/Asset/Wobject.pm b/lib/WebGUI/Asset/Wobject.pm
index 94c35a9e4..4ab904b3f 100644
--- a/lib/WebGUI/Asset/Wobject.pm
+++ b/lib/WebGUI/Asset/Wobject.pm
@@ -568,10 +568,16 @@ sub setCollateral {
 }
 
 
-
-
-
-
+sub www_edit {
+	my $self = shift;
+	return WebGUI::Privilege::insufficient() unless $self->canEdit;
+	my ($tag) = ($self->get("className") =~ /::(\w+)$/);
+	$tag =~ s/([a-z])([A-Z])/$1 $2/g;  #Separate studly caps
+	$tag =~ s/([A-Z]+(?![a-z]))/$1 /g; #Separate acronyms
+	$self->getAdminConsole->setHelp(lc($tag)." add/edit", "Asset_".$tag);
+	my $addEdit = $session{form}{func} ? WebGUI::International::get('add','Wobject') : WebGUI::International::get('edit','Wobject');
+	return $self->getAdminConsole->render($self->getEditForm->print,$addEdit.' '.$self->getName);
+}
 
 
 #-------------------------------------------------------------------