loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1498, 2022/10/22 20:45:35	version 1.1499, 2022/10/22 21:13:47
Line 12527 sub get_supplemental {	Line 12527 sub get_supplemental {
unless (defined($cached)) {	unless (defined($cached)) {
my $chome=&homeserver($cnum,$cdom);	my $chome=&homeserver($cnum,$cdom);
unless ($chome eq 'no_host') {	unless ($chome eq 'no_host') {
	my @order = @LONCAPA::map::order;
	my @resources = @LONCAPA::map::resources;
	my @resparms = @LONCAPA::map::resparms;
	my @zombies = @LONCAPA::map::zombies;
my ($errors,%ids,%hidden);	my ($errors,%ids,%hidden);
$errors =	$errors =
&Apache::loncommon::recurse_supplemental($cnum,$cdom,	&Apache::loncommon::recurse_supplemental($cnum,$cdom,
'supplemental.sequence',	'supplemental.sequence',
$errors,$possdel,\%ids,\%hidden);	$errors,$possdel,\%ids,\%hidden);
	@LONCAPA::map::order = @order;
	@LONCAPA::map::resources = @resources;
	@LONCAPA::map::resparms = @resparms;
	@LONCAPA::map::zombies = @zombies;
$set_httprefs = 1;	$set_httprefs = 1;
if ($env{'request.course.id'} eq $cdom.'_'.$cnum) {	if ($env{'request.course.id'} eq $cdom.'_'.$cnum) {
&Apache::lonnet::appenv({'request.course.suppupdated' => time});	&Apache::lonnet::appenv({'request.course.suppupdated' => time});