[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.31, Thu Feb 19 12:55:35 2004 UTC revision 1.32, Wed Mar 3 12:49:23 2004 UTC
# Line 3571  Line 3571 
3571      my($self,$role,$who,$genome) = @_;      my($self,$role,$who,$genome) = @_;
3572      my($relational_db_response,$query);      my($relational_db_response,$query);
3573    
3574        my $roleQ = quotemeta $role;
3575    
3576      $who = $who ? $who : "master";      $who = $who ? $who : "master";
3577      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
3578    
# Line 3586  Line 3588 
3588    
3589      if (! $genome)      if (! $genome)
3590      {      {
3591          $query = "SELECT distinct prot FROM roles  WHERE (( role = \'$role\' ) AND $who_cond )";          $query = "SELECT distinct prot FROM roles  WHERE (( role = \'$roleQ\' ) AND $who_cond )";
3592      }      }
3593      else      else
3594      {      {
3595          $query = "SELECT distinct prot FROM roles  WHERE (( role = \'$role\' ) AND $who_cond AND (org = \'$genome\'))";          $query = "SELECT distinct prot FROM roles  WHERE (( role = \'$roleQ\' ) AND $who_cond AND (org = \'$genome\'))";
3596      }      }
3597      return (($relational_db_response = $rdbH->SQL($query)) && (@$relational_db_response >= 1)) ?      return (($relational_db_response = $rdbH->SQL($query)) && (@$relational_db_response >= 1)) ?
3598          map { $_->[0] } @$relational_db_response : ();          map { $_->[0] } @$relational_db_response : ();

Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3