[Bio] / ProposeSubsystem / getfigid.cgi Repository:
ViewVC logotype

View of /ProposeSubsystem/getfigid.cgi

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1.1.1 - (download) (annotate) (vendor branch)
Mon Jun 4 20:19:36 2007 UTC (12 years, 4 months ago) by bartels
Branch: ProposeSubsystem, MAIN
CVS Tags: V_0_9, HEAD
Changes since 1.1: +0 -0 lines
subsystem primer tool

use CGI;
use FIG;
    
my $fig = new FIG;
my $cgi = new CGI;
my $extid = $cgi->param( 'extid' );
my $string = "<DIV style='border: 1px solid black; padding: 2px;'>";

my $synid = $fig->maps_to_id( $extid );
return -1 if ( !defined( $synid ) );

my @aliaslist = $fig->mapped_prot_ids( $synid );
my $wasin = 0;

foreach my $idref ( @aliaslist ) {
    
    my $id = $idref->[0];
    
    if ( $id =~ /fig.*/ ) {
	
	my $genome = $fig->genome_of( $id );
	my $genusspecies = $fig->genus_species( $genome );
	$string .= "$id in $genusspecies<BR>";
	$wasin = 1;

    }
}
if ( !$wasin ) {
    $string .= "No FIGID found!";
}
$string .= '</DIV>'; 

print $cgi->header();
print $string;

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3