[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

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

revision 1.548, Thu Nov 30 23:04:16 2006 UTC revision 1.549, Fri Dec 1 23:22:45 2006 UTC
# Line 1  Line 1 
1    
2  #  #
3  # Copyright (c) 2003-2006 University of Chicago and Fellowship  # Copyright (c) 2003-2006 University of Chicago and Fellowship
4  # for Interpretations of Genomes. All Rights Reserved.  # for Interpretations of Genomes. All Rights Reserved.
# Line 2776  Line 2777 
2777  sub fr_to_go {  sub fr_to_go {
2778      my($self,$role) = @_;      my($self,$role) = @_;
2779    
2780        my $roleQ = quotemeta $role;
2781      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
2782      my $relational_db_response = $rdbH->SQL("SELECT go_id  FROM fr2go WHERE role = \'$role\'");      my $relational_db_response = $rdbH->SQL("SELECT go_id  FROM fr2go WHERE role = '$roleQ'");
2783      return map { $_->[0] } @{$relational_db_response};      return map { $_->[0] } @{$relational_db_response};
2784  }  }
2785    
# Line 14773  Line 14775 
14775      return @result;      return @result;
14776  }  }
14777    
14778    sub role_to_pegs {
14779        my($self,$role) = @_;
14780    
14781        my $rdbH = $self->db_handle;
14782        $role =~ s/\'/\\\'/g;
14783        my $q    = "SELECT protein FROM subsystem_index WHERE role = '$role'";
14784        if (my $relational_db_response = $rdbH->SQL($q))
14785        {
14786            return map { $_->[0] } @$relational_db_response;
14787        }
14788        return ();
14789    }
14790    
14791    
14792  sub peg_to_roles_in_subsystems {  sub peg_to_roles_in_subsystems {
14793      my($self,$peg) = @_;      my($self,$peg) = @_;
14794    

Legend:
Removed from v.1.548  
changed lines
  Added in v.1.549

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3