version 1.369, 2006/03/14 22:17:20
|
version 1.370, 2006/03/14 22:17:55
|
Line 3657 sub kind { my $self=shift; return $self-
|
Line 3657 sub kind { my $self=shift; return $self-
|
sub randomout { my $self=shift; return $self->navHash("randomout_", 1); } |
sub randomout { my $self=shift; return $self->navHash("randomout_", 1); } |
sub randompick { |
sub randompick { |
my $self = shift; |
my $self = shift; |
return $self->{NAV_MAP}->{PARM_HASH}->{$self->symb().'.0.randompick'}; |
return $self->parmval('randompick'); |
} |
} |
sub link { |
sub link { |
my $self=shift; |
my $self=shift; |