[Bio] / FigKernelScripts / relevant_pchsG.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/relevant_pchsG.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2, Sun May 29 02:15:42 2005 UTC revision 1.3, Fri Sep 9 17:21:51 2005 UTC
# Line 12  Line 12 
12   )   )
13      || die $usage;      || die $usage;
14    
15    if ($genome =~ /^\d+\.\d+$/)
16    {
17        my $mg = $fig->map_genome_to_id($genome);
18        print STDERR "Mapped $genome to $mg\n";
19        $genome = $mg;
20    }
21    elsif ($genome =~ /^\d+$/)
22    {
23        my $g = $fig->map_id_to_genome($genome);
24        print STDERR "Using mapped genome $g\n";
25    }
26    else
27    {
28        die "Invalid genome identifier\n";
29    }
30    
31    
32  my $qry = qq(SELECT r1.g1, r1.p1,  my $qry = qq(SELECT r1.g1, r1.p1,
33                   r1.g2, r1.p2,                   r1.g2, r1.p2,
34                   r2.g2, r2.p2,                   r2.g2, r2.p2,

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3