comparison Lib/IMPL/Web/Security.pm @ 94:79bf75223afe

Fixed security related bugs
author wizard
date Thu, 29 Apr 2010 01:31:27 +0400
parents 6d3bca490556
children 964587c5183c
comparison
equal deleted inserted replaced
93:0667064553ef 94:79bf75223afe
33 } 33 }
34 34
35 return { 35 return {
36 status => $status, 36 status => $status,
37 answer => $answer, 37 answer => $answer,
38 context => $this->MakeContext( $user, $user->roles, $auth ) 38 context => $this->MakeContext( $user, [$user->roles], $auth )
39 } 39 }
40 } 40 }
41 41
42 sub MakeContext { 42 sub MakeContext {
43 my ($this,$principal,$roles,$auth) = @_; 43 my ($this,$principal,$roles,$auth) = @_;