loncom/interface/loncoursedata.pm - diff

Return to loncoursedata.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.53, 2003/02/28 20:41:27	version 1.54, 2003/02/28 23:19:01
Line 1687 $ENV{'course.'.$cid.'.domain'}, and $ENV	Line 1687 $ENV{'course.'.$cid.'.domain'}, and $ENV

Returns a reference to a hash which contains:	Returns a reference to a hash which contains:
keys '$sname:$sdom'	keys '$sname:$sdom'
values [$end,$start,$id,$section,$fullname]	values [$sdom,$sname,$end,$start,$id,$section,$fullname,$status]

	The constant values CL_SDOM, CL_SNAME, CL_END, etc. can be used
	as indices into the returned list to future-proof clients against
	changes in the list order.

=cut	=cut

################################################	################################################
################################################	################################################

	sub CL_SDOM { return 0; }
	sub CL_SNAME { return 1; }
	sub CL_END { return 2; }
	sub CL_START { return 3; }
	sub CL_ID { return 4; }
	sub CL_SECTION { return 5; }
	sub CL_FULLNAME { return 6; }
	sub CL_STATUS { return 7; }

sub get_classlist {	sub get_classlist {
my ($cid,$cdom,$cnum) = @_;	my ($cid,$cdom,$cnum) = @_;
$cid = $cid \|\| $ENV{'request.course.id'};	$cid = $cid \|\| $ENV{'request.course.id'};