|
version 1.21, 2009/08/11 00:39:46
|
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>'); |
|
Line 581 sub store_selfenroll_request {
|
Line 581 sub store_selfenroll_request {
|
| my $fullname = &Apache::loncommon::plainname($uname,$udom); |
my $fullname = &Apache::loncommon::plainname($uname,$udom); |
| my %courseinfo = &Apache::lonnet::coursedescription($cdom.'_'.$cnum); |
my %courseinfo = &Apache::lonnet::coursedescription($cdom.'_'.$cnum); |
| my $coursedesc = $courseinfo{'description'}; |
my $coursedesc = $courseinfo{'description'}; |
| &Apache::loncoursequeueadmin::send_selfserver_notification( |
&Apache::loncoursequeueadmin::send_selfserve_notification( |
| $selfenroll_notifylist,$fullname,$cdom.'_'.$cnum, |
$selfenroll_notifylist,$fullname,$cdom.'_'.$cnum, |
| $coursedesc,$now,'selfenrollreq',$owner); |
$coursedesc,$now,'selfenrollreq',$owner); |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to selfenroll.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface