![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.405, 2006/06/28 20:15:37 | version 1.406, 2006/06/28 23:38:10 |
|---|---|
| Line 5179 sub course_type { | Line 5179 sub course_type { |
| } | } |
| } | } |
| sub group_term { | |
| my $crstype = &course_type(); | |
| my %names = ( | |
| 'Course' => 'group', | |
| 'Group' => 'team', | |
| ); | |
| return $names{$crstype}; | |
| } | |
| sub icon { | sub icon { |
| my ($file)=@_; | my ($file)=@_; |
| my $curfext = (split(/\./,$file))[-1]; | my $curfext = (split(/\./,$file))[-1]; |