loncom/interface/lontiny.pm - diff

Return to lontiny.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.16, 2022/07/08 03:05:18	version 1.17, 2022/10/19 18:09:04
Line 118 sub handler {	Line 118 sub handler {
$realuri .= '?symb='.$symb;	$realuri .= '?symb='.$symb;
}	}
}	}
my $update;	my ($update,$reinitresult);
# Check if course needs to be re-initialized	# Check if course needs to be re-initialized
if ($newlauncher) {	if ($newlauncher) {
$update = 1;	$update = 1;
} else {	} else {
my $loncaparev = $r->dir_config('lonVersion');	my $loncaparev = $r->dir_config('lonVersion');
my ($result,@reinit) = &Apache::loncommon::needs_coursereinit($loncaparev);	($reinitresult,my @reinit) = &Apache::loncommon::needs_coursereinit($loncaparev);
if ($result eq 'update') {	if (($reinitresult eq 'main') \|\| ($reinitresult eq 'both')) {
$update = 1;	$update = 1;
} elsif (!-e $env{'request.course.fn'}.'.db') {	} elsif (!-e $env{'request.course.fn'}.'.db') {
$update = 1;	$update = 1;
Line 155 sub handler {	Line 155 sub handler {
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}
}	}
	if (($reinitresult eq 'both') \|\| ($reinitresult eq 'supp')) {
	my $possdel;
	if ($reinitresult eq 'supp') {
	$possdel = 1;
	}
	my ($supplemental,$refs_updated) = &Apache::lonnet::get_supplemental($cnum,$cdom,'',$possdel);
	unless ($refs_updated) {
	&Apache::loncommon::set_supp_httprefs($cnum,$cdom,$supplemental,$possdel);
	}
	}
my $host = $r->headers_in->get('Host');	my $host = $r->headers_in->get('Host');
if (!$host) {	if (!$host) {
$r->internal_redirect($realuri);	$r->internal_redirect($realuri);