Return to slotrequest.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.68, 2006/06/30 04:28:18 | version 1.69, 2006/10/17 15:11:26 |
---|---|
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); |