comparison Lib/IMPL/Web/Security.pm @ 87:6d3bca490556

small fixes in the security moodules
author wizard
date Mon, 19 Apr 2010 23:20:46 +0400
parents 74bae30eb25e
children 79bf75223afe
comparison
equal deleted inserted replaced
86:52eeec77504b 87:6d3bca490556
15 } 15 }
16 16
17 sub AuthUser { 17 sub AuthUser {
18 my ($this,$name,$package,$challenge) = @_; 18 my ($this,$name,$package,$challenge) = @_;
19 19
20 my $user = $this->sourceUser->search({name => $name}); 20 my $user = $this->sourceUser->find({name => $name});
21 21
22 my $auth; 22 my $auth;
23 if ( my $secData = $user->secData($package) ) { 23 if ( my $secData = $user->secData($package) ) {
24 $auth = $package->new($secData); 24 $auth = $package->new($secData);
25 } else { 25 } else {