fix for editing interfaces to Assets that still display an edit button even if the Asset is edit locked.

This commit is contained in:
Colin Kuskie 2007-04-29 03:16:13 +00:00
parent 38060cc0cb
commit 8b7bafe1ae
19 changed files with 59 additions and 39 deletions

View file

@ -1606,6 +1606,7 @@ Edit wobject method.
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