version 1.529, 2017/03/08 02:51:08
|
version 1.530, 2017/04/08 18:50:35
|
Line 1691 END
|
Line 1691 END
|
my ($is_ssl,$cdom,$cnum,$hostname); |
my ($is_ssl,$cdom,$cnum,$hostname); |
if ($ENV{'SERVER_PORT'} == 443) { |
if ($ENV{'SERVER_PORT'} == 443) { |
$is_ssl = 1; |
$is_ssl = 1; |
$hostname = $r->hostname(); |
if ($r) { |
|
$hostname = $r->hostname(); |
|
} else { |
|
$hostname = $ENV{'SERVER_NAME'}; |
|
} |
} |
} |
if ($env{'request.course.id'}) { |
if ($env{'request.course.id'}) { |
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |