loncom/interface/lonaboutme.pm - diff

Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.57, 2006/10/23 18:48:46	version 1.58, 2006/12/09 23:33:55
Line 57 sub handler {	Line 57 sub handler {
'No user information available');	'No user information available');
return OK;	return OK;
} else {	} else {
$is_course = &check_for_course($cdom,$cnum);	$is_course = &is_course($cdom,$cnum);
}	}

# --------------------------------------------------------- The syllabus fields	# --------------------------------------------------------- The syllabus fields
Line 629 sub parse_directory {	Line 629 sub parse_directory {
return $output;	return $output;
}	}

sub check_for_course {
my ($cdom,$cnum) = @_;
my %courses = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.',$cnum,undef,
undef,'.');
if (exists($courses{$cdom.'_'.$cnum})) {
return 1;
}
return 0;
}

1;	1;
__END__	__END__