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(); |