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

[bowersj2]

bowersj2		Mon Oct  7 15:00:38 2002 EDT

  Modified files:              
    /loncom/interface	lonnavmaps.pm 
  Log:
  Fixes external resources.
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.66 loncom/interface/lonnavmaps.pm:1.67
--- loncom/interface/lonnavmaps.pm:1.66	Fri Oct  4 16:34:04 2002
+++ loncom/interface/lonnavmaps.pm	Mon Oct  7 15:00:38 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.66 2002/10/04 20:34:04 bowersj2 Exp $
+# $Id: lonnavmaps.pm,v 1.67 2002/10/07 19:00:38 bowersj2 Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2037,6 +2037,7 @@
 # "to" can return a comma seperated list for branches
 sub to { my $self=shift; return $self->navHash("to_", 1); }
 sub kind { my $self=shift; return $self->navHash("kind_", 1); }
+sub ext { my $self=shift; return $self->navHash("ext_", 1) eq 'true:'; }
 sub src { 
     my $self=shift;
     return $self->navHash("src_", 1);
@@ -2286,6 +2287,8 @@
 sub parts {
     my $self = shift;
 
+    if ($self->ext) { return ['0']; }
+
     $self->extractParts();
     return $self->{PARTS};
 }
@@ -2309,6 +2312,7 @@
     my $self = shift;
     
     return if ($self->{PARTS});
+    return if ($self->ext);
 
     $self->{PARTS} = [];