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

added coupons

Browse source
This commit is contained in:
JT Smith 2008-04-30 21:43:16 +00:00
parent 05f14b3b76
commit 102b5fd1ae
13 changed files with 456 additions and 23 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -489,26 +489,6 @@ sub setCollateral {
}
#-------------------------------------------------------------------
=head2 www_edit ( )
Returns an edit form for this asset.
=cut
sub www_edit {
my $self = shift;
return $self->session->privilege->insufficient() unless $self->canEdit;
return $self->session->privilege->locked() unless $self->canEditIfLocked;
my ($tag) = ($self->get("className") =~ /::(\w+)$/);
my $tag2 = $tag;
$tag =~ s/([a-z])([A-Z])/$1 $2/g; #Separate studly caps
$tag =~ s/([A-Z]+(?![a-z]))/$1 /g; #Separate acronyms
return $self->getAdminConsole->render($self->getEditForm->print, $self->addEditLabel);
}
#-------------------------------------------------------------------
=head2 www_view ( )