[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.263, Sun Apr 3 19:11:11 2005 UTC revision 1.264, Sun Apr 3 19:43:41 2005 UTC
# Line 5445  Line 5445 
5445    
5446   return 1 unless (scalar @files); # don't continue if there are no files to move   return 1 unless (scalar @files); # don't continue if there are no files to move
5447    
5448   mkdir "$FIG_Config::temp/Attributes/deleted_attributes", 0755 unless (-e "$FIG_Config::temp/Attributes/deleted_attributes");   `mkdir -p $FIG_Config::temp/Attributes/deleted_attributes`, 0755 unless (-e "$FIG_Config::temp/Attributes/deleted_attributes");
5449     unless (-e "$FIG_Config::temp/Attributes/deleted_attributes") {
5450       die "directory structure not constructed. wanted:\n$FIG_Config::temp/Attributes/deleted_attributes\nCan't proceed";
5451     }
5452    
5453   foreach my $path (@files)   foreach my $path (@files)
5454   {   {
# Line 5453  Line 5456 
5456    unless ($genome) {$genome='unknown'}    unless ($genome) {$genome='unknown'}
5457    my $dest="$FIG_Config::temp/Attributes/deleted_attributes/$genome";    my $dest="$FIG_Config::temp/Attributes/deleted_attributes/$genome";
5458    mkdir "$FIG_Config::temp/Attributes/deleted_attributes/$genome", 0755 unless (-e "$FIG_Config::temp/Attributes/deleted_attributes/$genome");    mkdir "$FIG_Config::temp/Attributes/deleted_attributes/$genome", 0755 unless (-e "$FIG_Config::temp/Attributes/deleted_attributes/$genome");
5459    $dest .= $attr;    $dest .= "/".$attr;
5460    if (-e $dest)    if (-e $dest)
5461    {    {
5462     # don't overwrite the file     # don't overwrite the file

Legend:
Removed from v.1.263  
changed lines
  Added in v.1.264

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3