[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.461, Fri Apr 28 14:36:14 2006 UTC revision 1.462, Fri Apr 28 18:09:18 2006 UTC
# Line 10788  Line 10788 
10788      return keys(%roles);      return keys(%roles);
10789  }  }
10790    
10791    sub function_to_subsystems {
10792        my($self,$func) = @_;
10793    
10794        my %subs;
10795        my @roles = $self->roles_of_function($func);
10796        if (@roles > 0)
10797        {
10798            foreach my $role (@roles)
10799            {
10800                foreach my $sub ($self->role_to_subsystems($role))
10801                {
10802                    $subs{$sub} = 1;
10803                }
10804            }
10805        }
10806        return sort keys(%subs);
10807    }
10808    
10809    sub role_to_subsystems {
10810        my($self,$role) = @_;
10811    
10812        my($relational_db_response);
10813        my $rdbH = $self->db_handle;
10814        my $roleQ = quotemeta $role;
10815        my $query = "SELECT distinct subsystem FROM subsystem_index  WHERE  role = \'$roleQ\'";
10816        return (($relational_db_response = $rdbH->SQL($query)) && (@$relational_db_response >= 1)) ?
10817            map { $_->[0] } @$relational_db_response : ();
10818    }
10819    
10820    sub is_NMPDR_genome {
10821        my($self,$org) = @_;
10822    
10823        return -e "$FIG_Config::organisms/$org/NMPDR";
10824    }
10825    
10826  =head3 seqs_with_role  =head3 seqs_with_role
10827    
10828  usage: @pegs = $fig->seqs_with_role($role,$who)  usage: @pegs = $fig->seqs_with_role($role,$who)

Legend:
Removed from v.1.461  
changed lines
  Added in v.1.462

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3