[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.783, Thu May 21 18:50:42 2009 UTC revision 1.784, Thu May 21 18:53:27 2009 UTC
# Line 18373  Line 18373 
18373    
18374  sub is_aux_role_in_subsystem {  sub is_aux_role_in_subsystem {
18375      my($self,$subsystem,$role) = @_;      my($self,$subsystem,$role) = @_;
     my $subO = $self->get_subsystem($subsystem);  
18376    
18377      return $subO ? $subO->is_aux_role($role) : 0;      my $rdbH = $self->db_handle();
18378        if (! $rdbH->table_exists('aux_roles')) { return 0 }
18379        $subsystem =~ s/\s/_/g;
18380        my $nameQ = quotemeta $subsystem;
18381        my $roleQ = quotemeta $role;
18382        my $q = "SELECT subsystem FROM aux_roles WHERE subsystem = '$nameQ' AND role = '$roleQ'";
18383    
18384        my $relational_db_response;
18385        return (($relational_db_response = $rdbH->SQL($q)) && (@$relational_db_response > 0));
18386    
18387        # my $subO = $self->get_subsystem($subsystem);
18388    
18389        # return $subO ? $subO->is_aux_role($role) : 0;
18390  }  }
18391    
18392  sub pegs_in_subsystem_cell  sub pegs_in_subsystem_cell

Legend:
Removed from v.1.783  
changed lines
  Added in v.1.784

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3