Results from Database of Genomic Variants
(<%
print $numResults, " variation";
if ($numResults != 1) { print "s"; }
if ($numResults > 0) {
print " : ";
print "";
print "view them";
print "";
}
%>)
<%
if ($numResults > 0) {
for (my $i = 0; $i < $numResults; $i++) {
print "- ";
my $key = $results[$i] . "~-~0~-~" . $landmarkAid;
print "";
print $resultDetails{$results[$i]}{$key}[0], " | ";
my $key = $results[$i] . "~-~0~-~" . $variationTypeAid;
print $resultDetails{$results[$i]}{$key}[0], " | ";
my $key = $results[$i] . "~-~0~-~" . $cytobandAid;
print $resultDetails{$results[$i]}{$key}[0];
print "
\n";
}
} else {
print "- ";
print "The region that you have searched for does not contain a variation known to this database.";
if ($alternateChr) {
print " However, the region that you are looking for seem to be located on $alternateChr.";
print " You may click ";
print "";
print "here to view all the entries on $alternateChr. ";
} elsif ($numGffEntries > 0 || @snpMatches > 0) {
print " However, there seem to be multiple matches found in the Genome Browser. Please see the section below for details. You may wish to use one of the the terms listed below to search the database again.";
}
print "
";
}
%>
Results from Genome Browser
(<% print $numGffEntries || @snpMatches + 0; %> record<%
if ($numGffEntries > 1 || @snpMatches > 1) { print "s"; } ;
print ", not all matches are shown" if $tooManyMatches; %>)
<%
if ($numGffEntries > 0) {
for (my $i = 0; $i < @gffEntries; $i++) {
my $feature = $gffEntries[$i];
#added by BTG to change clone names to locations
my $l_temp_string = $feature->location()->seq_id().":";
$l_temp_string .= $feature->start."..";
$l_temp_string .= $feature->end;
#my $temp_string = $feature->name();
print "- ";
print $feature->name()."|";
print $feature->class()."|";
print "";
print "$l_temp_string ";
print "
\n";
}
} elsif (@snpMatches > 0) {
foreach (@snpMatches) {
my $temp_string = "$_->[0]:$_->[1]..$_->[2]";
print "- ";
print "$_->[0]|".uc($_->[3])."|";
print "";
print "$temp_string ";
print "
\n";
}
} else {
print "- Unfortunately, no matches found. ";
print "Please try using another equivalent search term or ";
print "email us ";
print "and we will try our best to help.";
print "
\n";
}
%>
|
