loncom/interface/selfenroll.pm - diff

Return to selfenroll.pm CVS log

Up to [LON-CAPA] / loncom / interface

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>');