comparison 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
comparison
equal deleted inserted replaced
391:2287c72f303a 392:54b1dc9e808a
73 } 73 }
74 } 74 }
75 75
76 sub HttpGet { 76 sub HttpGet {
77 shift->model; 77 shift->model;
78 }
79
80 sub AccessCheck {
81 my ($this,$verb) = @_;
82
83 $this->_invoke($this->access,$verb)
84 if $this->access;
78 } 85 }
79 86
80 sub Fetch { 87 sub Fetch {
81 my ($this,$childId) = @_; 88 my ($this,$childId) = @_;
82 89