loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

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

version 1.1381, 2018/08/09 14:04:35	version 1.1382, 2018/08/14 18:29:33
Line 10045 sub is_course {	Line 10045 sub is_course {
my $uhome=&homeserver($cnum,$cdom);	my $uhome=&homeserver($cnum,$cdom);
my $iscourse;	my $iscourse;
if (grep { $_ eq $uhome } current_machine_ids()) {	if (grep { $_ eq $uhome } current_machine_ids()) {
$iscourse = &Lond::is_course($cdom,$cnum);	$iscourse = &LONCAPA::Lond::is_course($cdom,$cnum);
} else {	} else {
my $hashid = $cdom.':'.$cnum;	my $hashid = $cdom.':'.$cnum;
($iscourse,my $cached) = &is_cached_new('iscourse',$hashid);	($iscourse,my $cached) = &is_cached_new('iscourse',$hashid);