## differentiate between Uniprot and Uniparc (UniRef90_UNI\w+) IDs as they require
## different SRS query strings
if ($align[$_] =~ /UniRef90_(UPI\w+)/) {
- print HTML "<a href=$SRSSERVER/wgetz?-e+[uniparc-AccNumber:$1]>$align[$_]</a>";
+ print HTML "<a href=$SRSSERVER?db=allebi&query=$1>$align[$_]</a>";
} else {
- print HTML "<a href=$SRSSERVER/wgetz?-e+[UNIREF90-acc:$align[$_]]>$align[$_]</a>";
+ print HTML "<a href=$SRSSERVER?db=allebi&query=$align[$_]>$align[$_]</a>";
}
} else {
print HTML "$align[$_]";
## differentiate between Uniprot and Uniparc IDs as they require
## different SRS query strings
if ($align[$_] =~ /UniRef90_(UPI\w+)/) {
- print HTML " : <a href=$SRSSERVER/wgetz?-e+[uniparc-AccNumber:$1]>$align[$_]</a>\n";
+ print HTML " : <a href=$SRSSERVER?db=allebi&query=$1>$align[$_]</a>\n";
} else {
- print HTML " : <a href=$SRSSERVER/wgetz?-e+[UNIREF90-acc:$align[$_]]>$align[$_]</a>\n";
+ print HTML " : <a href=$SRSSERVER?db=allebi&query=$align[$_]>$align[$_]</a>\n";
}
} else {
print HTML " : $align[$_]\n";