[Bio] / FortyEight / SeedExport.pm Repository:
ViewVC logotype

Diff of /FortyEight/SeedExport.pm

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

revision 1.5, Thu Feb 8 21:11:01 2007 UTC revision 1.6, Thu Feb 15 16:59:42 2007 UTC
# Line 103  Line 103 
103    
104      # get the functional role name -> GO file      # get the functional role name -> GO file
105      open(FH, $FIG_Config::data . "/Ontologies/GO/fr2go") or die "could not open fr2go";      open(FH, $FIG_Config::data . "/Ontologies/GO/fr2go") or die "could not open fr2go";
106      my $fr2go;      my $fr2go = {};
107      while (<FH>) {      while (<FH>) {
108        chomp;        chomp;
109        my ($fr, $go) = split /\t/;        my ($fr, $go) = split /\t/;
110        $fr2go->{$fr} = $go;        $fr2go->{$fr} = [] unless (exists $fr2go->{$fr});
111          push @{$fr2go->{$fr}}, $go;
112      }      }
113      close FH;      close FH;
114    
# Line 118  Line 119 
119    
120          # check for a GO number          # check for a GO number
121          if (exists($fr2go->{$func})) {          if (exists($fr2go->{$func})) {
122            push @{$note->{"Dbxref"}}, $fr2go->{$func};            push @{$note->{"Dbxref"}}, @{$fr2go->{$func}};
123          }          }
124    
125          # parse out the ec number if there is one          # parse out the ec number if there is one

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3