[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.453, Wed Mar 29 20:41:33 2006 UTC revision 1.454, Wed Apr 12 13:10:38 2006 UTC
# Line 293  Line 293 
293      return bless $self, $class;      return bless $self, $class;
294  }  }
295    
296    
297  =head3 db_handle  =head3 db_handle
298    
299  C<< my $dbh = $fig->db_handle; >>  C<< my $dbh = $fig->db_handle; >>
# Line 2685  Line 2686 
2686      return \$rev;      return \$rev;
2687  }  }
2688    
2689    sub verify_external_tool {
2690        my(@progs) = @_;
2691    
2692        my $prog;
2693        foreach $prog (@progs)
2694        {
2695            my @tmp = `which $prog`;
2696            if ($tmp[0] =~ /^no $prog/)
2697            {
2698                print STDERR $tmp[0];
2699                exit(1);
2700            }
2701        }
2702    }
2703    
2704  =head3 verify_dir  =head3 verify_dir
2705    
2706  C<< FIG::verify_dir($dir); >>  C<< FIG::verify_dir($dir); >>
# Line 12516  Line 12532 
12532          }          }
12533          close(DATA);          close(DATA);
12534      }      }
12535        $who =~ s/master://i;
12536      return $who;      return $who;
12537  }  }
12538    
# Line 12981  Line 12998 
12998    
12999      my $rdbH = $self->db_handle;      my $rdbH = $self->db_handle;
13000    
13001      my $q = "SELECT subsystem, role, protein FROM subsystem_index WHERE role = \'$role\'";      my $roleQ = quotemeta $role;
13002        my $q = "SELECT subsystem, role, protein FROM subsystem_index WHERE role = \'$roleQ\'";
13003    
13004      if (my $relational_db_response = $rdbH->SQL($q))      if (my $relational_db_response = $rdbH->SQL($q))
13005      {      {

Legend:
Removed from v.1.453  
changed lines
  Added in v.1.454

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3