[Bio] / FigKernelPackages / P2Pupdate.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/P2Pupdate.pm

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

revision 1.6, Mon Dec 22 03:37:42 2003 UTC revision 1.7, Mon Dec 22 08:42:00 2003 UTC
# Line 469  Line 469 
469      my($genome,$x);      my($genome,$x);
470    
471      $who   = $who ? $who : "master";      $who   = $who ? $who : "master";
472        $date  = $date ? $date : 0;
473      &force_absolute($fig_base);      &force_absolute($fig_base);
474      if (-d "$fig_base/Tmp/Assignments") { system "rm -rf $fig_base/Tmp/Assignments" }      if (-d "$fig_base/Tmp/Assignments") { system "rm -rf $fig_base/Tmp/Assignments" }
475      mkdir("$fig_base/Tmp/Assignments",0777) || die "could not make $fig_base/Tmp/Assignments";      mkdir("$fig_base/Tmp/Assignments",0777) || die "could not make $fig_base/Tmp/Assignments";
# Line 505  Line 506 
506                  }                  }
507              }              }
508          }          }
509    
510          if (open(TMP,">$fig_base/Tmp/Assignments/$genome/$who"))          if (open(TMP,">$fig_base/Tmp/Assignments/$genome/$who"))
511          {          {
512              if (@possible > 0)              if (@possible > 0)
513              {              {
                 if ($date)  
                 {  
514                      my %poss = map { $_->[0] => $_->[1] } @possible;                      my %poss = map { $_->[0] => $_->[1] } @possible;
515                      if (open(ANN,"<$FIG_Config::organisms/$genome/annotations"))                      if (open(ANN,"<$FIG_Config::organisms/$genome/annotations"))
516                      {                      {
# Line 531  Line 531 
531                          close(ANN);                          close(ANN);
532                      }                      }
533                  }                  }
                 else  
                 {  
                     foreach $x (@possible)  
                     {  
                         print TMP join("\t",@$x),"\n";  
                     }  
                 }  
             }  
534              close(TMP);              close(TMP);
535          }          }
536      }      }
# Line 563  Line 555 
555      my($genome);      my($genome);
556    
557      &force_absolute($fig_disk);      &force_absolute($fig_disk);
     &force_absolute($package);  
558    
559      if (-d "$fig_disk/BackupAssignments") { system "rm -rf $fig_disk/BackupAssignments" }      if (-d "$fig_disk/BackupAssignments") { system "rm -rf $fig_disk/BackupAssignments" }
560      mkdir("$fig_disk/BackupAssignments",0777);      mkdir("$fig_disk/BackupAssignments",0777);

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3