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) = @_;