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'}; |