[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.526, Mon Oct 2 02:56:39 2006 UTC revision 1.527, Mon Oct 2 18:09:07 2006 UTC
# Line 5592  Line 5592 
5592      return ();      return ();
5593  }  }
5594    
5595    sub essentiality_data {
5596      my($self,$genome,$experiment, $value) = @_;
5597    
5598      my $rdbH = $self->db_handle;
5599    
5600      my $defined_val = "";
5601      if (defined($value)) {
5602        $defined_val = " AND val='" . $value . "'";
5603      }
5604    
5605      my $statement = "SELECT prot, aliases, assigned_function, val, minloc FROM (SELECT CONCAT('fig|', genome, '.', ftype, '.', id) AS pid, val FROM attribute WHERE genome='" . $genome . "' AND tag='" . $experiment . "'" . $defined_val . ") AS t1 LEFT OUTER JOIN assigned_functions on t1.pid = assigned_functions.prot LEFT OUTER JOIN features ON t1.pid = features.id ORDER BY minloc";
5606    
5607      my $relational_db_response = $rdbH->SQL($statement);
5608    
5609      my $return;
5610      foreach my $row (@$relational_db_response) {
5611          my $retval = $rdbH->SQL("SELECT DISTINCTROW subsystem from subsystem_index WHERE protein='" . $row->[0] . "'");
5612          my $subsystems;
5613          foreach my $subsystem (@$retval) {
5614            push(@$subsystems, $subsystem->[0]);
5615          }
5616          push(@$row, $subsystems || []);
5617          push(@$return, $row);
5618      }
5619    
5620      return $return || ();
5621    }
5622    
5623    
5624  =head3 pegs_of  =head3 pegs_of
5625    

Legend:
Removed from v.1.526  
changed lines
  Added in v.1.527

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3