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} = []; |
|
|