![[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.945, 2008/02/29 21:01:24 | version 1.946, 2008/03/09 16:57:26 |
|---|---|
| Line 5721 ENDINITMAP | Line 5721 ENDINITMAP |
| sub is_course { | sub is_course { |
| my ($cdom,$cnum) = @_; | my ($cdom,$cnum) = @_; |
| my %courses = &courseiddump($cdom,'.',1,'.','.',$cnum,undef, | my %courses = &courseiddump($cdom,'.',1,'.','.',$cnum,undef, |
| undef,'.',undef,1); | undef,'.'); |
| if (exists($courses{$cdom.'_'.$cnum})) { | if (exists($courses{$cdom.'_'.$cnum})) { |
| return 1; | return 1; |
| } | } |