loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.66, 2002/10/04 20:34:04	version 1.67, 2002/10/07 19:00:38
Line 2037 sub goesto { my $self=shift; return $sel	Line 2037 sub goesto { my $self=shift; return $sel
# "to" can return a comma seperated list for branches	# "to" can return a comma seperated list for branches
sub to { my $self=shift; return $self->navHash("to_", 1); }	sub to { my $self=shift; return $self->navHash("to_", 1); }
sub kind { my $self=shift; return $self->navHash("kind_", 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 {	sub src {
my $self=shift;	my $self=shift;
return $self->navHash("src_", 1);	return $self->navHash("src_", 1);
Line 2286 sub getFeedback {	Line 2287 sub getFeedback {
sub parts {	sub parts {
my $self = shift;	my $self = shift;

	if ($self->ext) { return ['0']; }

$self->extractParts();	$self->extractParts();
return $self->{PARTS};	return $self->{PARTS};
}	}
Line 2309 sub extractParts {	Line 2312 sub extractParts {
my $self = shift;	my $self = shift;

return if ($self->{PARTS});	return if ($self->{PARTS});
	return if ($self->ext);

$self->{PARTS} = [];	$self->{PARTS} = [];