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

[albertel]

albertel		Thu May 11 17:55:42 2006 EDT

  Modified files:              (Branch: version_2_1_X)
    /loncom/interface	lonnavmaps.pm 
  Log:
  - backport 1.380
  
  
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.349.2.6 loncom/interface/lonnavmaps.pm:1.349.2.7
--- loncom/interface/lonnavmaps.pm:1.349.2.6	Fri Feb 10 17:35:24 2006
+++ loncom/interface/lonnavmaps.pm	Thu May 11 17:55:37 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.349.2.6 2006/02/10 22:35:24 albertel Exp $
+# $Id: lonnavmaps.pm,v 1.349.2.7 2006/05/11 21:55:37 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -3728,7 +3728,6 @@
 }
 sub is_sequence {
     my $self=shift;
-    my $src = $self->src();
     return $self->navHash("is_map_", 1) && 
 	$self->navHash("map_type_" . $self->map_pc()) eq 'sequence';
 }
@@ -3798,20 +3797,20 @@
 sub map_finish {
     my $self = shift;
     my $src = $self->src();
-    $src = Apache::lonnet::clutter($src);
+    $src = &Apache::lonnet::deversion(&Apache::lonnet::clutter($src));
     my $res = $self->navHash("map_finish_$src", 0);
     $res = $self->{NAV_MAP}->getById($res);
     return $res;
 }
 sub map_pc {
     my $self = shift;
-    my $src = $self->src();
+    my $src = &Apache::lonnet::deversion($self->src());
     return $self->navHash("map_pc_$src", 0);
 }
 sub map_start {
     my $self = shift;
     my $src = $self->src();
-    $src = Apache::lonnet::clutter($src);
+    $src = &Apache::lonnet::deversion(&Apache::lonnet::clutter($src));
     my $res = $self->navHash("map_start_$src", 0);
     $res = $self->{NAV_MAP}->getById($res);
     return $res;