# HG changeset patch # User wizard # Date 1288718242 -10800 # Node ID a9f4ba4783eb094e1c21bb719683950bbcbd1804 # Parent c7652cf29a807b03efa84ca633b87e4a735d9206 Minor changes diff -r c7652cf29a80 -r a9f4ba4783eb Lib/IMPL/Security/Context.pm --- 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); } diff -r c7652cf29a80 -r a9f4ba4783eb Lib/IMPL/Web/QueryHandler/SecureCookie.pm --- 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->(); diff -r c7652cf29a80 -r a9f4ba4783eb Lib/IMPL/Web/TT/Form.pm --- 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') }; }