[LON-CAPA-cvs] cvs: loncom /interface lonnavmaps.pm

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 28 Jun 2004 15:09:13 -0000


albertel		Mon Jun 28 11:09:13 2004 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm 
  Log:
  - first check parm then extension (parm might be overriding extension, need to default to extension)
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.262 loncom/interface/lonnavmaps.pm:1.263
--- loncom/interface/lonnavmaps.pm:1.262	Tue Jun 15 11:50:03 2004
+++ loncom/interface/lonnavmaps.pm	Mon Jun 28 11:09:13 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.262 2004/06/15 15:50:03 www Exp $
+# $Id: lonnavmaps.pm,v 1.263 2004/06/28 15:09:13 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3246,10 +3246,10 @@
 sub is_survey {
     my $self = shift();
     my $part = shift();
-    if ($self->src() =~ /\.(survey)$/) {
+    if ($self->parmval('type',$part) eq 'survey') {
         return 1;
     }
-    if ($self->parmval('type',$part) eq 'survey') {
+    if ($self->src() =~ /\.(survey)$/) {
         return 1;
     }
     return 0;