version 1.22, 2009/08/20 22:07:18
|
version 1.23, 2009/09/05 01:14:32
|
Line 476 sub process_self_enroll {
|
Line 476 sub process_self_enroll {
|
} |
} |
&Apache::lonnet::standard_roleprivs(\%newrole,$role,$cdom,$spec,$cnum, |
&Apache::lonnet::standard_roleprivs(\%newrole,$role,$cdom,$spec,$cnum, |
$area); |
$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; |
$userroles{'user.role.'.$spec} = $selfenroll_access_start.'.'.$selfenroll_access_end; |
&Apache::lonnet::appenv(\%userroles,[$role,'cm']); |
&Apache::lonnet::appenv(\%userroles,[$role,'cm']); |
$r->print('<h3>'.&mt('Enrollment process complete').'</h3>'); |
$r->print('<h3>'.&mt('Enrollment process complete').'</h3>'); |