![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl|
Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
| version 1.84, 2000/12/29 21:52:19 | version 1.85, 2000/12/29 22:40:33 |
|---|---|
| Line 1325 sub createcourse { | Line 1325 sub createcourse { |
| my ($udom,$description,$url)=@_; | my ($udom,$description,$url)=@_; |
| $url=&declutter($url); | $url=&declutter($url); |
| my $cid=''; | my $cid=''; |
| unless ($cid=$ENV{'request.course.id'}) { | |
| return 'not_in_class'; | |
| } | |
| unless (&allowed('ccc',$ENV{'user.domain'})) { | unless (&allowed('ccc',$ENV{'user.domain'})) { |
| return 'refused'; | return 'refused'; |
| } | } |