diff Lib/IMPL/Web/Application/Action.pm @ 62:c64bd1bf727d

Web application Page query handler
author wizard
date Fri, 12 Mar 2010 16:23:46 +0300
parents bf59ee1cd506
children 76b878ad6596
line wrap: on
line diff
--- a/Lib/IMPL/Web/Application/Action.pm	Wed Mar 10 16:41:46 2010 +0300
+++ b/Lib/IMPL/Web/Application/Action.pm	Fri Mar 12 16:23:46 2010 +0300
@@ -1,13 +1,13 @@
 package IMPL::Web::Application::Action;
 use strict;
 
-use base qw(IMPL::Object);
+use base qw(IMPL::Object IMPL::Object::Autofill);
 
 use IMPL::Class::Property;
 
 BEGIN {
 	public property application => prop_get | owner_set;
-	public property request => prop_get | owner_set;
+	public property query => prop_get | owner_set;
 	public property response => prop_get | owner_set;
 	
 	private property _entryPoint => prop_all;
@@ -73,7 +73,7 @@
 	TDocumentOut->Invoke($Action,$nextHandler) {
 		my $result = $nextHandler() {
 			$AuthenticateMethod($Action,$nextHandler) {
-				my $context = $Action->application->security->Authenticate($Action->request,$Action->response);
+				my $context = $Action->application->security->Authenticate($Action->query,$Action->response);
 				return $context->Impersonate($nextHandler) {
 					$objSecCallToMethod->Invoke($Action,undef) {
 						IMPL::Security->AccessCheck($target,$method);