![[BACK]](/icons/back.gif){kind=icon}
Return to lonnavmaps.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface|
Return to lonnavmaps.pm CVS log | Up to [LON-CAPA] / loncom / interface |
| version 1.368, 2006/03/13 17:29:50 | version 1.369, 2006/03/14 22:17:20 |
|---|---|
| Line 3775 sub retrieveResources { | Line 3775 sub retrieveResources { |
| return $self->{NAV_MAP}->retrieveResources(@_); | return $self->{NAV_MAP}->retrieveResources(@_); |
| } | } |
| sub is_exam { | |
| my ($self,$part) = @_; | |
| if ($self->parmval('type',$part) eq 'exam') { | |
| return 1; | |
| } | |
| if ($self->src() =~ /\.(exam)$/) { | |
| return 1; | |
| } | |
| return 0; | |
| } | |
| sub is_html { | sub is_html { |
| my $self=shift; | my $self=shift; |
| my $src = $self->src(); | my $src = $self->src(); |