rat/lonsequence.pm - diff

Return to lonsequence.pm CVS log

Up to [LON-CAPA] / rat

version 1.57, 2022/10/19 00:03:12	version 1.58, 2022/10/19 18:09:03
Line 234 sub handler {	Line 234 sub handler {
$r->send_http_header;	$r->send_http_header;
$r->print(&Apache::loncommon::check_release_result(@reinit));	$r->print(&Apache::loncommon::check_release_result(@reinit));
return OK;	return OK;
} elsif (($result eq 'main') \|\| ($result eq 'both')) {	}
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	my ($cnum,$cdom);
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	if ($result) {
	$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	}
	if (($result eq 'main') \|\| ($result eq 'both')) {
my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum");	my ($furl,$ferr) = &Apache::lonuserstate::readmap("$cdom/$cnum");
if ($ferr) {	if ($ferr) {
my $requrl = $r->uri;	my $requrl = $r->uri;
Line 245 sub handler {	Line 249 sub handler {
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}
}	}
	if (($result eq 'both') \|\| ($result eq 'supp')) {
	my $possdel;
	if ($result 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);
	}
	}
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;