--- loncom/interface/loncreateuser.pm	2007/08/10 23:01:51	1.170
+++ loncom/interface/loncreateuser.pm	2007/08/14 16:53:15	1.171
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Create a user
 #
-# $Id: loncreateuser.pm,v 1.170 2007/08/10 23:01:51 albertel Exp $
+# $Id: loncreateuser.pm,v 1.171 2007/08/14 16:53:15 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1770,7 +1770,7 @@ sub classlist_drop {
     }
 }
 
-sub active_student_role {
+sub active_student_roles {
     my ($cnum,$cdom,$uname,$udom) = @_;
     my %roles = 
 	&Apache::lonnet::get_my_roles($uname,$udom,'userroles',