![[BACK]](/icons/back.gif){kind=icon}
Return to slotrequest.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
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); |