[Bio] / Sprout / LoadProjections.pl Repository:
ViewVC logotype

Diff of /Sprout/LoadProjections.pl

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

revision 1.1, Wed Sep 7 18:29:25 2011 UTC revision 1.2, Thu Sep 8 17:20:11 2011 UTC
# Line 105  Line 105 
105          }          }
106          # Now we must create a copy of the input file that has no redundant projections.          # Now we must create a copy of the input file that has no redundant projections.
107          my $ih = Tracer::Open(undef, "<$fileName");          my $ih = Tracer::Open(undef, "<$fileName");
108          my $oh = Tracer::Open(undef, ">$fileName.copy.tbl");          my $oh = Tracer::Open(undef, ">$FIG_Config::temp/projections.copy.tbl");
109          while (! eof $ih) {          while (! eof $ih) {
110                  my ($from, $to, $context, $percent, $score) = Tracer::GetLine($ih);                  my ($from, $to, $context, $percent, $score) = Tracer::GetLine($ih);
111                  if ($from lt $to) {                  if ($from lt $to) {
# Line 116  Line 116 
116          close $oh;          close $oh;
117          # Load the table.          # Load the table.
118          Trace("Loading projection data.") if T(2);          Trace("Loading projection data.") if T(2);
119          $sap->LoadTable("$fileName.copy.tbl", 'ProjectsOnto', truncate => 1, failOnError => 1);          $sap->LoadTable("$FIG_Config::temp/projections.copy.tbl", 'ProjectsOnto', truncate => 1, failOnError => 1);
120          # Display the run statistics.          # Display the run statistics.
121          Trace("Statistics for this run:\n" . $stats->Show()) if T(2);          Trace("Statistics for this run:\n" . $stats->Show()) if T(2);
122    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3