Included libraries | Package variables | General documentation | Methods |
WebCvs | Raw content |
build_features | No description | Code |
init | No description | Code |
length | No description | Code |
build_features | description | prev | next | Top |
my ($self, $opts) = @_; my $spid = $opts->{'segment'}; my $start = $opts->{'start'}; my $end = $opts->{'end'}; # print $self->config->{'needed_arg'}."\n";}
#
#Create some dummy notes
#
my @notes=(); for(my $i=0; $i <= $#id; $i++){ $notes[$i] = "Demo annotation $i ??"; } #create array of fearutes to return;
my @features = (); for(my $i=0; $i <= $#id; $i++){ next if(($id[$i] ne $spid) || (defined($start) and ($ends[$i] < $start or $starts[$i] > $end))); push @features, { 'id' => $id2[$i], 'type' => $types[$i], # needed for proteinview protein
# features names in graphical view
'feature'=> $names[$i], 'method' => $method[$i], 'start' => $starts[$i], 'end' => $ends[$i], 'note' => $notes[$i], 'link' => '/Docs/enstour/', 'linktxt' => 'Tour', }; } return @features; } 1;
init | description | prev | next | Top |
my $self = shift; $self->{'dsn'} = "demo"; $self->{'capabilities'} = { 'features' => '1.0', };}
length | description | prev | next | Top |
return 0;
}AUTHOR | Top |