[Bio] / FigKernelScripts / load_coupling.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/load_coupling.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2, Mon May 30 21:57:23 2005 UTC revision 1.3, Wed Jun 1 01:18:50 2005 UTC
# Line 4  Line 4 
4  use FIG;  use FIG;
5  my $fig = new FIG;  my $fig = new FIG;
6    
7  $usage = "usage: load_coupling PCHdir Scores";  # usage: load_coupling
8    
9  (  $pchD   = "$FIG_Config::fig/CouplingData/PCHs";
10   ($pchD   = shift @ARGV) && (-d $pchD) &&  $scores = "$FIG_Config::fig/CouplingData/scores";
  ($scores = shift @ARGV) && (-s $scores)  
 )  
     || die $usage;  
11    
12  use DBrtns;  use DBrtns;
13    
14    if (! ((-d $pchD) && (-s $scores))) { exit }
15    
16  my $dbf = $fig->{_dbf};  my $dbf = $fig->{_dbf};
17    

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3