[Bio] / FigWebServices / targets.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/targets.cgi

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

revision 1.4, Wed Dec 6 23:50:46 2006 UTC revision 1.5, Thu Dec 7 00:36:39 2006 UTC
# Line 73  Line 73 
73  sub get_table{  sub get_table{
74      my($cgi, $varHash, $file)= @_;      my($cgi, $varHash, $file)= @_;
75      Open(\*TABLE, "<$FIG_Config::drug_directory/$file");      Open(\*TABLE, "<$FIG_Config::drug_directory/$file");
76        Trace("Processing table $file.") if T(3);
77      while (! eof TABLE){      while (! eof TABLE){
78          my @entry = Tracer::GetLine(\*TABLE);          my @entry = Tracer::GetLine(\*TABLE);
79          &get_best_pdb($cgi, $varHash, @entry);          &get_best_pdb($cgi, $varHash, @entry);
# Line 120  Line 121 
121  # This sub changes the Candidacy code to something meaningful.  # This sub changes the Candidacy code to something meaningful.
122  sub changecat{  sub changecat{
123      my($dog) = @_;      my($dog) = @_;
124      Trace("Selecting category for $dog.") if T(3);      Trace("Selecting category for $dog.") if T(4);
125      my $cat = SHDrugSearch::GetCategory($dog);      my $cat = SHDrugSearch::GetCategory($dog);
126      return $cat;      return $cat;
127  }  }

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3