[BACK]Return to lonnavmaps.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonnavmaps.pm between versions 1.349.2.7 and 1.349.2.9

version 1.349.2.7, 2006/05/11 21:55:37 version 1.349.2.9, 2006/05/15 23:51:34
Line 2502  sub parmval_real { Line 2502  sub parmval_real {
     my $result='';      my $result='';
   
     my ($mapname,$id,$fn)=&Apache::lonnet::decode_symb($symb);      my ($mapname,$id,$fn)=&Apache::lonnet::decode_symb($symb);
       $mapname = &Apache::lonnet::deversion($mapname);
 # ----------------------------------------------------- Cascading lookup scheme  # ----------------------------------------------------- Cascading lookup scheme
     my $rwhat=$what;      my $rwhat=$what;
     $what=~s/^parameter\_//;      $what=~s/^parameter\_//;
Line 3797  Returns a string with the type of the ma Line 3797  Returns a string with the type of the ma
 sub map_finish {  sub map_finish {
     my $self = shift;      my $self = shift;
     my $src = $self->src();      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);      my $res = $self->navHash("map_finish_$src", 0);
     $res = $self->{NAV_MAP}->getById($res);      $res = $self->{NAV_MAP}->getById($res);
     return $res;      return $res;
 }  }
 sub map_pc {  sub map_pc {
     my $self = shift;      my $self = shift;
     my $src = &Apache::lonnet::deversion($self->src());      my $src = $self->src();
     return $self->navHash("map_pc_$src", 0);      return $self->navHash("map_pc_$src", 0);
 }  }
 sub map_start {  sub map_start {
     my $self = shift;      my $self = shift;
     my $src = $self->src();      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);      my $res = $self->navHash("map_start_$src", 0);
     $res = $self->{NAV_MAP}->getById($res);      $res = $self->{NAV_MAP}->getById($res);
     return $res;      return $res;
Removed from v.1.349.2.7  
changed lines
  Added in v.1.349.2.9

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>