changeset 158:a9f4ba4783eb

Minor changes
author wizard
date Tue, 02 Nov 2010 20:17:22 +0300
parents c7652cf29a80
children f8de52d3c112
files Lib/IMPL/Security/Context.pm Lib/IMPL/Web/QueryHandler/SecureCookie.pm Lib/IMPL/Web/TT/Form.pm
diffstat 3 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/Lib/IMPL/Security/Context.pm	Wed Oct 20 18:02:47 2010 +0400
+++ b/Lib/IMPL/Security/Context.pm	Tue Nov 02 20:17:22 2010 +0300
@@ -81,7 +81,7 @@
 sub Satisfy {
 	my ($this,@roles) = @_;
 	
-	my $roleEffective = new IMPL::Security::Role ( _effective => $this->rolesAssigned );
+	my $roleEffective = new IMPL::Security::Role ( _effective => scalar $this->rolesAssigned );
 	
 	return $roleEffective->Satisfy(@roles);
 }
--- a/Lib/IMPL/Web/QueryHandler/SecureCookie.pm	Wed Oct 20 18:02:47 2010 +0400
+++ b/Lib/IMPL/Web/QueryHandler/SecureCookie.pm	Tue Nov 02 20:17:22 2010 +0300
@@ -44,6 +44,7 @@
 				$this->salt
 			)
 		) {
+			# TODO: add a DefferedProxy to deffer a request to a data source
 			my $context = $action->application->security->sourceSession->find(
 				{ id => $sid }
 			) or return $nextHandler->();
--- a/Lib/IMPL/Web/TT/Form.pm	Wed Oct 20 18:02:47 2010 +0400
+++ b/Lib/IMPL/Web/TT/Form.pm	Tue Nov 02 20:17:22 2010 +0300
@@ -99,6 +99,7 @@
 			sourceSchema => $schemaSource,
 			errors => \@errors,
 			data => $node,
+			inputType => $schemaSource->nodeProperty('inputType') || $schema->nodeProperty('inputType'),
 			nodeValue => $node && $node->nodeValue, # small hack set a non dom class property through
 			queryParameter => $this->makeParameterName([@$path,{ node => $node, schemaSource => $schemaSource}])
 		}
@@ -164,7 +165,8 @@
 		errors => \@errors,
 		data => $node,
 		nodeValue => $node && $node->nodeValue, # small hack set a non dom class property through
-		queryParameter => $queryParameter
+		queryParameter => $queryParameter,
+		inputType => $sourceSchema->nodeProperty('inputType') || $schema->nodeProperty('inputType')
 	};
 }