![]() ![]() | ![]() |
version 1.68.2.1, 2006/10/29 16:23:58 | version 1.70, 2006/10/29 16:22:13 |
---|---|
Line 77 sub end_page { | Line 77 sub end_page { |
=cut | =cut |
sub get_course { | sub get_course { |
(undef,my $courseid)=&Apache::lonxml::whichuser(); | (undef,my $courseid)=&Apache::lonnet::whichuser(); |
my $cdom=$env{'course.'.$courseid.'.domain'}; | my $cdom=$env{'course.'.$courseid.'.domain'}; |
my $cnum=$env{'course.'.$courseid.'.num'}; | my $cnum=$env{'course.'.$courseid.'.num'}; |
return ($cnum,$cdom); | return ($cnum,$cdom); |