Mercurial > pub > Impl
diff Lib/IMPL/Web/Application/Resource.pm @ 392:54b1dc9e808a
fixed web-resources access check
author | sergey |
---|---|
date | Fri, 14 Feb 2014 03:31:45 +0400 |
parents | 2287c72f303a |
children | ef37ec102dab |
line wrap: on
line diff
--- a/Lib/IMPL/Web/Application/Resource.pm Thu Feb 13 20:17:22 2014 +0400 +++ b/Lib/IMPL/Web/Application/Resource.pm Fri Feb 14 03:31:45 2014 +0400 @@ -77,6 +77,13 @@ shift->model; } +sub AccessCheck { + my ($this,$verb) = @_; + + $this->_invoke($this->access,$verb) + if $this->access; +} + sub Fetch { my ($this,$childId) = @_;