--- loncom/interface/lonuserutils.pm	2007/12/21 12:41:25	1.17
+++ loncom/interface/lonuserutils.pm	2007/12/21 14:05:40	1.18
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Utility functions for managing LON-CAPA user accounts
 #
-# $Id: lonuserutils.pm,v 1.17 2007/12/21 12:41:25 raeburn Exp $
+# $Id: lonuserutils.pm,v 1.18 2007/12/21 14:05:40 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3810,6 +3810,27 @@ 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;