--- loncom/interface/selfenroll.pm 2009/08/20 22:07:18 1.22 +++ loncom/interface/selfenroll.pm 2009/09/05 01:14:32 1.23 @@ -1,7 +1,7 @@ # The LearningOnline Network # Allow users to self-enroll in a course # -# $Id: selfenroll.pm,v 1.22 2009/08/20 22:07:18 raeburn Exp $ +# $Id: selfenroll.pm,v 1.23 2009/09/05 01:14:32 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -476,7 +476,7 @@ sub process_self_enroll { } &Apache::lonnet::standard_roleprivs(\%newrole,$role,$cdom,$spec,$cnum, $area); - &Apache::lonnet::set_userprivs(\%userroles,\%newrole,%newgroups); + &Apache::lonnet::set_userprivs(\%userroles,\%newrole,\%newgroups); $userroles{'user.role.'.$spec} = $selfenroll_access_start.'.'.$selfenroll_access_end; &Apache::lonnet::appenv(\%userroles,[$role,'cm']); $r->print('

'.&mt('Enrollment process complete').'

');