loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.286, 2002/09/24 18:25:45	version 1.287, 2002/10/01 07:09:05
Line 2588 sub courseresdata {	Line 2588 sub courseresdata {
}	}
}	}
foreach my $item (@which) {	foreach my $item (@which) {
if ($courseresdatacache{$hashid}->{$item}) {	if (defined($courseresdatacache{$hashid}->{$item})) {
return $courseresdatacache{$hashid}->{$item};	return $courseresdatacache{$hashid}->{$item};
}	}
}	}
Line 2739 sub EXT {	Line 2739 sub EXT {
($seclevelr,$seclevelm,$seclevel,	($seclevelr,$seclevelm,$seclevel,
$courselevelr,$courselevelm,	$courselevelr,$courselevelm,
$courselevel));	$courselevel));
if ($coursereply) { return $coursereply; }	if (defined($coursereply)) { return $coursereply; }

# ------------------------------------------------------ third, check map parms	# ------------------------------------------------------ third, check map parms
my %parmhash=();	my %parmhash=();