loncom/interface/lonuserutils.pm - diff

Return to lonuserutils.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.17, 2007/12/21 12:41:25
+version 1.18, 2007/12/21 14:05:40
  Line 3810  sub can_create_user {
      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 {
      my ($context,$custom) = @_;
      my @allroles;