# HG changeset patch
# User sergey
# Date 1392334305 -14400
# Node ID 54b1dc9e808a84d1c22cd506f8e77f38dafdc5cf
# Parent  2287c72f303aa662532153310a612f0aaabdbf75
fixed web-resources access check

diff -r 2287c72f303a -r 54b1dc9e808a Lib/IMPL/Web/Application/Resource.pm
--- 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) = @_;