version 1.21, 2009/08/11 00:39:46
|
version 1.24, 2010/01/15 03:37:13
|
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 543 sub store_selfenroll_request {
|
Line 543 sub store_selfenroll_request {
|
my %existing = |
my %existing = |
&Apache::lonnet::get($namespace,[$uname.':'.$udom],$cdom,$cnum); |
&Apache::lonnet::get($namespace,[$uname.':'.$udom],$cdom,$cnum); |
if ($existing{$uname.':'.$udom}) { |
if ($existing{$uname.':'.$udom}) { |
my ($timestamp,$sec) = split(/:/,$existing{$uname.':'.$udom}); |
$output = &mt('A self-enrollment request already exists for you for this course.').'<br />'.&mt('Your earlier request is in a queue awaiting action by a Course Coordinator.'). |
$output = &mt('A self-enrollment request already exists for you for this course.').'<br />'.&mt('Your earlier request was submitted: [_1] and remains in a queue awaiting action by a Course Coordinator.',&Apache::lonlocal::locallocaltime($timestamp)); |
'<br /><br />'.&Apache::loncoursequeueadmin::queued_selfenrollment(); |
} else { |
} else { |
my %selfenroll = ( |
my %selfenroll = ( |
$uname.':'.$udom => $now.':'.$usec, |
$uname.':'.$udom => $now.':'.$usec, |
Line 576 sub store_selfenroll_request {
|
Line 576 sub store_selfenroll_request {
|
if ($warning) { |
if ($warning) { |
$output .= '<span class="LC_warning">'.$warning.'</span><br />'; |
$output .= '<span class="LC_warning">'.$warning.'</span><br />'; |
} |
} |
|
|
|
$output .= &Apache::loncommon::queued_selfenrollment(); |
|
|
if ($selfenroll_notifylist) { |
if ($selfenroll_notifylist) { |
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); |
} |
} |