version 1.31, 2014/04/06 14:11:01
|
version 1.37, 2021/06/15 20:52:26
|
Line 221 sub handler {
|
Line 221 sub handler {
|
if ($sso_url eq '') { |
if ($sso_url eq '') { |
$sso_url = $login_path; |
$sso_url = $login_path; |
} |
} |
$missing_formitem = &mt('The link to the requested page could not be followed.')."\\n".&mt('The placeholder for the courseID is absent.'); |
$missing_formitem = &mt('The link to the requested page could not be followed.')."\n".&mt('The placeholder for the courseID is absent.'); |
|
&js_escape(\$missing_formitem); |
if ($knownuser) { |
if ($knownuser) { |
if (keys(%curr_role)) { |
if (keys(%curr_role)) { |
$r->print('<h3>'.&mt('Self-enrollment unavailable').'</h3>'. |
$r->print('<h3>'.&mt('Self-enrollment unavailable').'</h3>'. |
Line 437 sub process_self_enroll {
|
Line 438 sub process_self_enroll {
|
if ($selfenroll_section eq 'none') { |
if ($selfenroll_section eq 'none') { |
$usec = ''; |
$usec = ''; |
} |
} |
|
my $instcid; |
if ($selfenroll_registered) { |
if ($selfenroll_registered) { |
my ($registered,$instsec,$message) = &check_registered($cdom,$cnum); |
my ($registered,$instsec,$instcid,$message) = &check_registered($cdom,$cnum); |
$usec = $instsec; |
$usec = $instsec; |
if (!$registered) { |
if (!$registered) { |
$r->print('<h3>'.&mt('Self-enrollment unavailable').'</h3>'. |
$r->print('<h3>'.&mt('Self-enrollment unavailable').'</h3>'. |
Line 453 sub process_self_enroll {
|
Line 455 sub process_self_enroll {
|
} |
} |
if ($selfenroll_approval) { |
if ($selfenroll_approval) { |
my $outcome = |
my $outcome = |
&store_selfenroll_request($udom,$uname,$usec,$cdom,$cnum, |
&store_selfenroll_request($r,$udom,$uname,$usec,$cdom,$cnum, |
$selfenroll_notifylist,$owner, |
$selfenroll_notifylist,$owner, |
$selfenroll_approval,$crstype,$lonhost,$handle); |
$selfenroll_approval,$crstype,$lonhost,$handle); |
$r->print($outcome); |
$r->print($outcome); |
Line 461 sub process_self_enroll {
|
Line 463 sub process_self_enroll {
|
my $enrollresult = |
my $enrollresult = |
&Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef, |
&Apache::lonnet::modify_student_enrollment($udom,$uname,undef,undef,undef, |
undef,undef,$usec,$selfenroll_access_end,$selfenroll_access_start, |
undef,undef,$usec,$selfenroll_access_end,$selfenroll_access_start, |
'selfenroll',undef,$cdom.'_'.$cnum,$selfenroll); |
'selfenroll',undef,$cdom.'_'.$cnum,$selfenroll,'selfenroll','',$instcid); |
if ($enrollresult eq 'ok') { |
if ($enrollresult eq 'ok') { |
my (%userroles,%newrole,%newgroups); |
my (%userroles,%newrole,%newgroups); |
my $role = 'st'; |
my $role = 'st'; |
Line 533 sub user_can_selfenroll {
|
Line 535 sub user_can_selfenroll {
|
} |
} |
|
|
sub store_selfenroll_request { |
sub store_selfenroll_request { |
my ($udom,$uname,$usec,$cdom,$cnum,$selfenroll_notifylist,$owner, |
my ($r,$udom,$uname,$usec,$cdom,$cnum,$selfenroll_notifylist,$owner, |
$selfenroll_approval,$crstype,$lonhost,$handle) = @_; |
$selfenroll_approval,$crstype,$lonhost,$handle) = @_; |
my $namespace = 'selfenrollrequests'; |
my $namespace = 'selfenrollrequests'; |
my $output; |
my $output; |
Line 549 sub store_selfenroll_request {
|
Line 551 sub store_selfenroll_request {
|
} |
} |
if ($status eq 'pending') { |
if ($status eq 'pending') { |
my $token = $info{$cdom.'_'.$cnum}{'token'}; |
my $token = $info{$cdom.'_'.$cnum}{'token'}; |
my ($statusupdate,$pendingform) = &pending_selfenrollment_form($cdom,$cnum,$crstype,$token,$lonhost); |
my ($statusupdate,$pendingform) = &pending_selfenrollment_form($r,$cdom,$cnum,$crstype,$token,$lonhost); |
if ($statusupdate eq 'pending') { |
if ($statusupdate eq 'pending') { |
$output .= $pendingform; |
$output .= $pendingform; |
} |
} |
Line 587 sub store_selfenroll_request {
|
Line 589 sub store_selfenroll_request {
|
} |
} |
$output = &mt('Your request for self-enrollment has been recorded.').'<br />'; |
$output = &mt('Your request for self-enrollment has been recorded.').'<br />'; |
if ($status eq 'pending') { |
if ($status eq 'pending') { |
my ($statusupdate,$pendingform) = &pending_selfenrollment_form($cdom,$cnum,$crstype,$token,$lonhost); |
my ($statusupdate,$pendingform) = &pending_selfenrollment_form($r,$cdom,$cnum,$crstype,$token,$lonhost); |
if ($statusupdate eq 'request') { |
if ($statusupdate eq 'request') { |
$status = $statusupdate; |
$status = $statusupdate; |
} else { |
} else { |
Line 628 sub store_selfenroll_request {
|
Line 630 sub store_selfenroll_request {
|
} |
} |
|
|
sub pending_selfenrollment_form { |
sub pending_selfenrollment_form { |
my ($cdom,$cnum,$crstype,$token,$lonhost) = @_; |
my ($r,$cdom,$cnum,$crstype,$token,$lonhost) = @_; |
my ($status,$output); |
my ($status,$output); |
my $coursetype = &Apache::lonuserutils::get_extended_type($cdom,$cnum,$crstype); |
my $coursetype = &Apache::lonuserutils::get_extended_type($cdom,$cnum,$crstype); |
my %postvalues = ( |
my %postvalues = ( |
Line 662 sub pending_selfenrollment_form {
|
Line 664 sub pending_selfenrollment_form {
|
if ($buttontext eq '') { |
if ($buttontext eq '') { |
$buttontext = &mt('Complete my enrollment'); |
$buttontext = &mt('Complete my enrollment'); |
} |
} |
|
my $hostname = &Apache::lonnet::hostname($lonhost); |
my $protocol = $Apache::lonnet::protocol{$lonhost}; |
my $protocol = $Apache::lonnet::protocol{$lonhost}; |
$protocol = 'http' if ($protocol ne 'https'); |
$protocol = 'http' if ($protocol ne 'https'); |
my $enroller = $protocol.'://'.&Apache::lonnet::hostname($lonhost).'/cgi-bin/enrollqueued.pl'; |
my $alias = &Apache::lonnet::use_proxy_alias($r,$lonhost); |
|
$hostname = $alias if ($alias ne ''); |
|
my $enroller = $protocol.'://'.$hostname.'/cgi-bin/enrollqueued.pl'; |
$output .= '<input type="hidden" name="enroller" value="'.$enroller.'" />'."\n". |
$output .= '<input type="hidden" name="enroller" value="'.$enroller.'" />'."\n". |
'<input type="hidden" name="token" value="'.$token.'" />'."\n". |
'<input type="hidden" name="token" value="'.$token.'" />'."\n". |
'<input type="submit" name="validate" value="'.$buttontext.'" />'."\n". |
'<input type="submit" name="validate" value="'.$buttontext.'" />'."\n". |
Line 784 sub print_selfenroll_types {
|
Line 789 sub print_selfenroll_types {
|
|
|
sub check_registered { |
sub check_registered { |
my ($cdom,$cnum) = @_; |
my ($cdom,$cnum) = @_; |
my ($registered,$instsec,$message); |
my ($registered,$instsec,$instcid,$message); |
my %settings = &Apache::lonnet::get('environment',['internal.coursecode', |
my %settings = &Apache::lonnet::get('environment',['internal.coursecode', |
'internal.sectionnums', |
'internal.sectionnums', |
'internal.crosslistings'],$cdom,$cnum); |
'internal.crosslistings'],$cdom,$cnum); |
my (@allcourses,%LC_code,%affiliates,%reply); |
my (@allcourses,%LC_code,%affiliates,%reply); |
&Apache::loncommon::get_institutional_codes(\%settings,\@allcourses,\%LC_code); |
&Apache::loncommon::get_institutional_codes($cdom,$cnum,\%settings,\@allcourses,\%LC_code); |
if (@allcourses > 0) { |
if (@allcourses > 0) { |
@{$affiliates{$cnum}} = @allcourses; |
@{$affiliates{$cnum}} = @allcourses; |
my $outcome = &Apache::lonnet::fetch_enrollment_query('updatenow',\%affiliates,\%reply,$cdom,$cnum); |
my $outcome = &Apache::lonnet::fetch_enrollment_query('updatenow',\%affiliates,\%reply,$cdom,$cnum); |
Line 804 sub check_registered {
|
Line 809 sub check_registered {
|
if (defined($enrolled{$env{'user.name'}})) { |
if (defined($enrolled{$env{'user.name'}})) { |
$registered = 1; |
$registered = 1; |
$instsec = $LC_code{$class}; |
$instsec = $LC_code{$class}; |
|
$instcid = $class; |
last; |
last; |
} |
} |
} |
} |
Line 816 sub check_registered {
|
Line 822 sub check_registered {
|
} else { |
} else { |
$message = &mt('As no institutional course sections are currently associated with this course, your registration status is undetermined.'); |
$message = &mt('As no institutional course sections are currently associated with this course, your registration status is undetermined.'); |
} |
} |
return ($registered,$instsec,$message); |
return ($registered,$instsec,$instcid,$message); |
} |
} |
|
|
1; |
1; |