rat/lonpageflip.pm - diff

Return to lonpageflip.pm CVS log

Up to [LON-CAPA] / rat

version 1.80.8.13.2.2, 2022/01/05 00:54:45	version 1.80.8.13.2.3, 2023/01/20 23:34:08
Line 463 sub handler {	Line 463 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 ($reinitcheck eq 'update') {	}
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	my ($cnum,$cdom);
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	if ($reinitcheck) {
	$cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	$cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	}
	if (($reinitcheck eq 'main') \|\| ($reinitcheck eq 'both')) {
$preupdatepos = &Apache::lonnet::symbread($currenturl);	$preupdatepos = &Apache::lonnet::symbread($currenturl);
unless ($direction eq 'return') {	unless ($direction eq 'return') {
if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',	if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'_symb.db',
Line 501 sub handler {	Line 505 sub handler {
}	}
}	}
}	}
	if (($reinitcheck eq 'both') \|\| ($reinitcheck eq 'supp')) {
	my $possdel;
	if ($reinitcheck eq 'supp') {
	$possdel = 1;
	}
	my ($supplemental,$refs_updated) = &Apache::loncommon::get_supplemental($cnum,$cdom,'',$possdel);
	unless ($refs_updated) {
	&Apache::loncommon::set_supp_httprefs($cnum,$cdom,$supplemental);
	}
	}
}	}
if ($direction eq 'firstres') {	if ($direction eq 'firstres') {
my $furl=&first_accessible_resource();	my $furl=&first_accessible_resource();