version 1.17, 2007/12/21 12:41:25
|
version 1.18, 2007/12/21 14:05:40
|
Line 3810 sub can_create_user {
|
Line 3810 sub can_create_user {
|
return $cancreate; |
return $cancreate; |
} |
} |
|
|
|
sub check_usertype { |
|
my ($dom,$uname,$rules) = @_; |
|
my $usertype; |
|
if (ref($rules) eq 'HASH') { |
|
my @user_rules = keys(%{$rules}); |
|
if (@user_rules > 0) { |
|
my %rule_check = &Apache::lonnet::inst_rulecheck($dom,$uname,undef,'username',\@user_rules); |
|
if (keys(%rule_check) > 0) { |
|
$usertype = 'unofficial'; |
|
foreach my $item (keys(%rule_check)) { |
|
if ($rule_check{$item}) { |
|
$usertype = 'official'; |
|
last; |
|
} |
|
} |
|
} |
|
} |
|
} |
|
return $usertype; |
|
} |
|
|
sub roles_by_context { |
sub roles_by_context { |
my ($context,$custom) = @_; |
my ($context,$custom) = @_; |
my @allroles; |
my @allroles; |