version 1.27.2.7, 2021/06/20 16:23:21
|
version 1.27.2.8, 2021/12/14 12:53:12
|
Line 456 sub process_self_enroll {
|
Line 456 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 536 sub user_can_selfenroll {
|
Line 536 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 552 sub store_selfenroll_request {
|
Line 552 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 590 sub store_selfenroll_request {
|
Line 590 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 631 sub store_selfenroll_request {
|
Line 631 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 668 sub pending_selfenrollment_form {
|
Line 668 sub pending_selfenrollment_form {
|
my $hostname = &Apache::lonnet::hostname($lonhost); |
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 $alias = &Apache::lonnet::use_proxy_alias($r,$lonhost); |
|
$hostname = $alias if ($alias ne ''); |
my $enroller = $protocol.'://'.$hostname.'/cgi-bin/enrollqueued.pl'; |
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". |