[LON-CAPA-cvs] cvs: loncom(version_2_1_X) /interface lonnavmaps.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Thu, 11 May 2006 23:53:03 -0000
albertel Thu May 11 19:53:03 2006 EDT
Modified files: (Branch: version_2_1_X)
/loncom/interface lonnavmaps.pm
Log:
- backport 1.381
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.349.2.7 loncom/interface/lonnavmaps.pm:1.349.2.8
--- loncom/interface/lonnavmaps.pm:1.349.2.7 Thu May 11 17:55:37 2006
+++ loncom/interface/lonnavmaps.pm Thu May 11 19:53:02 2006
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Navigate Maps Handler
#
-# $Id: lonnavmaps.pm,v 1.349.2.7 2006/05/11 21:55:37 albertel Exp $
+# $Id: lonnavmaps.pm,v 1.349.2.8 2006/05/11 23:53:02 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3797,20 +3797,20 @@
sub map_finish {
my $self = shift;
my $src = $self->src();
- $src = &Apache::lonnet::deversion(&Apache::lonnet::clutter($src));
+ $src = &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 = &Apache::lonnet::deversion($self->src());
+ my $src = $self->src();
return $self->navHash("map_pc_$src", 0);
}
sub map_start {
my $self = shift;
my $src = $self->src();
- $src = &Apache::lonnet::deversion(&Apache::lonnet::clutter($src));
+ $src = &Apache::lonnet::clutter($src);
my $res = $self->navHash("map_start_$src", 0);
$res = $self->{NAV_MAP}->getById($res);
return $res;