Return to lonnavmaps.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.242, 2003/12/01 14:38:25 | version 1.242.2.1, 2004/05/06 15:04:00 |
---|---|
Line 3167 sub is_page { | Line 3167 sub is_page { |
sub is_problem { | sub is_problem { |
my $self=shift; | my $self=shift; |
my $src = $self->src(); | my $src = $self->src(); |
return ($src =~ /problem$/); | return ($src =~ /\.(problem|exam|quiz|assess|survey|form|library)$/); |
} | } |
sub is_sequence { | sub is_sequence { |
my $self=shift; | my $self=shift; |