--- loncom/interface/lonrequestcourse.pm 2021/03/06 23:08:03 1.95.2.6
+++ loncom/interface/lonrequestcourse.pm 2021/12/14 02:54:52 1.95.2.7
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Request a course
#
-# $Id: lonrequestcourse.pm,v 1.95.2.6 2021/03/06 23:08:03 raeburn Exp $
+# $Id: lonrequestcourse.pm,v 1.95.2.7 2021/12/14 02:54:52 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3198,7 +3198,7 @@ sub clone_form {
'
'.
- ''.
+ ''.
&Apache::lonhtmlcommon::row_closure(1);
return $output;
}
@@ -3980,7 +3980,7 @@ sub process_request {
} elsif ($disposition eq 'pending') {
my $pendingform;
if ($crstype ne 'official') {
- $pendingform = &pending_validation_form($dom,$cnum,$crstype,$now,$token,
+ $pendingform = &pending_validation_form($r,$dom,$cnum,$crstype,$now,$token,
$lonhost,$env{'form.cdescr'});
}
if ($pendingform) {
@@ -4298,7 +4298,7 @@ sub notification_information {
}
sub pending_validation_form {
- my ($cdom,$cnum,$crstype,$now,$token,$lonhost,$cdesc) = @_;
+ my ($r,$cdom,$cnum,$crstype,$now,$token,$lonhost,$cdesc) = @_;
my $output;
my %postvalues = (
'owner' => $env{'user.name'}.':'.$env{'user.domain'},
@@ -4334,6 +4334,8 @@ sub pending_validation_form {
my $hostname = &Apache::lonnet::hostname($lonhost);
my $protocol = $Apache::lonnet::protocol{$lonhost};
$protocol = 'http' if ($protocol ne 'https');
+ my $alias = &Apache::lonnet::use_proxy_alias($r,$lonhost);
+ $hostname = $alias if ($alias ne '');
my $crscreator = $protocol.'://'.$hostname.'/cgi-bin/createpending.pl';
$output .= ''."\n".
''."\n".
@@ -4822,7 +4824,7 @@ sub print_textbook_form {
'
'.
- ''.
+ ''.
'');
}
#
@@ -4837,7 +4839,7 @@ sub print_textbook_form {
'
'.
- ''.
+ ''.
'');
}