oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

adding generalized www_edit

Browse source
This commit is contained in:
Matthew Wilson 2005-10-13 21:53:37 +00:00
parent fd212e9110
commit 5a81623352
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

14
lib/WebGUI/Asset/Wobject.pm
View file

@ -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);
}
#------------------------------------------------------------------- #-------------------------------------------------------------------