--- loncom/interface/selfenroll.pm 2021/06/20 16:23:21 1.27.2.7
+++ loncom/interface/selfenroll.pm 2016/08/07 01:39:49 1.34
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Allow users to self-enroll in a course
#
-# $Id: selfenroll.pm,v 1.27.2.7 2021/06/20 16:23:21 raeburn Exp $
+# $Id: selfenroll.pm,v 1.34 2016/08/07 01:39:49 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -350,8 +350,7 @@ sub enrollment_limit_check {
sub page_header {
my ($r,$courseid,$js,$desc) = @_;
my $start_page =
- &Apache::loncommon::start_page('Self-enroll in a LON-CAPA course',$js,
- {'no_inline_link' => 1,});
+ &Apache::loncommon::start_page('Self-enroll in a LON-CAPA course',$js);
$r->print($start_page);
&Apache::lonhtmlcommon::clear_breadcrumbs();
&Apache::createaccount::selfenroll_crumbs($r,$courseid,$desc);
@@ -665,10 +664,9 @@ sub pending_selfenrollment_form {
if ($buttontext eq '') {
$buttontext = &mt('Complete my enrollment');
}
- my $hostname = &Apache::lonnet::hostname($lonhost);
my $protocol = $Apache::lonnet::protocol{$lonhost};
$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 .= ''."\n".
''."\n".
''."\n".
@@ -793,7 +791,7 @@ sub check_registered {
'internal.sectionnums',
'internal.crosslistings'],$cdom,$cnum);
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) {
@{$affiliates{$cnum}} = @allcourses;
my $outcome = &Apache::lonnet::fetch_enrollment_query('updatenow',\%affiliates,\%reply,$cdom,$cnum);