version 1.349.2.6, 2006/02/10 22:35:24
|
version 1.349.2.7, 2006/05/11 21:55:37
|
Line 3728 sub contains_problem {
|
Line 3728 sub contains_problem {
|
} |
} |
sub is_sequence { |
sub is_sequence { |
my $self=shift; |
my $self=shift; |
my $src = $self->src(); |
|
return $self->navHash("is_map_", 1) && |
return $self->navHash("is_map_", 1) && |
$self->navHash("map_type_" . $self->map_pc()) eq 'sequence'; |
$self->navHash("map_type_" . $self->map_pc()) eq 'sequence'; |
} |
} |
Line 3798 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::clutter($src); |
$src = &Apache::lonnet::deversion(&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 = $self->src(); |
my $src = &Apache::lonnet::deversion($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::clutter($src); |
$src = &Apache::lonnet::deversion(&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; |