version 1.27.2.7, 2021/06/20 16:23:21
|
version 1.33, 2016/07/24 14:35:00
|
Line 350 sub enrollment_limit_check {
|
Line 350 sub enrollment_limit_check {
|
sub page_header { |
sub page_header { |
my ($r,$courseid,$js,$desc) = @_; |
my ($r,$courseid,$js,$desc) = @_; |
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page('Self-enroll in a LON-CAPA course',$js, |
&Apache::loncommon::start_page('Self-enroll in a LON-CAPA course',$js); |
{'no_inline_link' => 1,}); |
|
$r->print($start_page); |
$r->print($start_page); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::createaccount::selfenroll_crumbs($r,$courseid,$desc); |
&Apache::createaccount::selfenroll_crumbs($r,$courseid,$desc); |
Line 441 sub process_self_enroll {
|
Line 440 sub process_self_enroll {
|
} |
} |
my $instcid; |
my $instcid; |
if ($selfenroll_registered) { |
if ($selfenroll_registered) { |
|
my ($registered,$instsec,$message); |
my ($registered,$instsec,$instcid,$message) = &check_registered($cdom,$cnum); |
my ($registered,$instsec,$instcid,$message) = &check_registered($cdom,$cnum); |
$usec = $instsec; |
$usec = $instsec; |
if (!$registered) { |
if (!$registered) { |
Line 665 sub pending_selfenrollment_form {
|
Line 665 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.'://'.$hostname.'/cgi-bin/enrollqueued.pl'; |
my $enroller = $protocol.'://'.&Apache::lonnet::hostname($lonhost).'/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 793 sub check_registered {
|
Line 792 sub check_registered {
|
'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($cdom,$cnum,\%settings,\@allcourses,\%LC_code); |
&Apache::loncommon::get_institutional_codes(\%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); |