--- loncom/interface/lonnavmaps.pm	2003/11/06 15:24:13	1.241
+++ loncom/interface/lonnavmaps.pm	2004/05/06 15:04:00	1.242.2.1
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.241 2003/11/06 15:24:13 albertel Exp $
+# $Id: lonnavmaps.pm,v 1.242.2.1 2004/05/06 15:04:00 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2345,6 +2345,8 @@ consisting entirely of empty resources e
 ending resource, will cause a lot of BRANCH_STARTs and BRANCH_ENDs,
 but only one resource will be returned.
 
+=back
+
 =head2 Normal Usage
 
 Normal usage of the iterator object is to do the following:
@@ -2365,8 +2367,6 @@ the depth of the iterator to see when it
 code. It is difficult to get right and harder to understand then
 this. They should be migrated to this new style.
 
-=back
-
 =cut
 
 # Here are the tokens for the iterator:
@@ -3167,7 +3167,7 @@ sub is_page {
 sub is_problem {
     my $self=shift;
     my $src = $self->src();
-    return ($src =~ /problem$/);
+    return ($src =~ /\.(problem|exam|quiz|assess|survey|form|library)$/);
 }
 sub is_sequence {
     my $self=shift;