![]() ![]() | ![]() |
version 1.249, 2004/02/24 19:14:42 | version 1.250, 2004/03/05 21:51:50 |
---|---|
Line 3175 sub is_page { | Line 3175 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; |