[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.470, Sun May 7 12:25:12 2006 UTC revision 1.471, Sun May 7 12:32:46 2006 UTC
# Line 714  Line 714 
714          $index = defined($max) ? $max+1 : 1;          $index = defined($max) ? $max+1 : 1;
715          print INDEX "$index\t$gs\n";          print INDEX "$index\t$gs\n";
716          close(INDEX);          close(INDEX);
717          &verify_dir("$FIG_Config::data/LOGS/GenomeLog/Entries/$index");          &verify_dir("$FIG_Config::data/Logs/GenomeLog/Entries/$index");
718      }      }
719      return $index;      return $index;
720  }  }
# Line 723  Line 723 
723      my($self,$user,$genome,$gs,$msg,@data) = @_;      my($self,$user,$genome,$gs,$msg,@data) = @_;
724    
725      my $time_made = time;      my $time_made = time;
726      &verify_dir("$FIG_Config::data/LOGS/GenomeLog");      &verify_dir("$FIG_Config::data/Logs/GenomeLog");
727      my $index_id = $self->get_index($gs);      my $index_id = $self->get_index($gs);
728      $index_id || die "could not make an index entry for $gs";      $index_id || die "could not make an index entry for $gs";
729      my $gs_dir = "$FIG_Config::data/LOGS/GenomeLog/Entries/$index_id";      my $gs_dir = "$FIG_Config::data/Logs/GenomeLog/Entries/$index_id";
730    
731      my($i,$file_or_dir,@tars);      my($i,$file_or_dir,@tars);
732      for ($i=0; ($i < @data); $i++)      for ($i=0; ($i < @data); $i++)

Legend:
Removed from v.1.470  
changed lines
  Added in v.1.471

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3