[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.17, Sat Jan 3 14:13:48 2004 UTC revision 1.18, Wed Jan 7 03:12:44 2004 UTC
# Line 529  Line 529 
529  =cut  =cut
530    
531  sub install_assignments {  sub install_assignments {
532      my($fig,$fig_disk,$package,$who_from,$logfile) = @_;      my($fig,$fig_disk,$package,$who_from) = @_;
533      my($genome);      my($genome);
534    
535      &force_absolute($fig_disk);      &force_absolute($fig_disk);
536      open(LOG,">>$logfile") || die "failed to open $logfile\n";  
537        &FIG::verify_dir("$FIG_Config::data/Assignments");
538        my $file = time;
539        open(LOG,">$FIG_Config::data/Assignments/$file") || return;
540    
541      if (-d "$fig_disk/BackupAssignments") { system "rm -rf $fig_disk/BackupAssignments" }      if (-d "$fig_disk/BackupAssignments") { system "rm -rf $fig_disk/BackupAssignments" }
542      mkdir("$fig_disk/BackupAssignments",0777);      mkdir("$fig_disk/BackupAssignments",0777);
# Line 562  Line 565 
565          foreach $tuple (@updates)          foreach $tuple (@updates)
566          {          {
567              my($peg,$func_and_conf,$user) = @$tuple;              my($peg,$func_and_conf,$user) = @$tuple;
568              my($func,$conf) = split(/\t/,$func_and_conf);              print LOG "$peg\t$func_and_conf\n";
             $conf = defined($conf) ? $conf : "";  
             $fig->assign_function($peg,$user,$func,$conf);  
             $fig->add_annotation($peg,"master","Imported function from $who_from: $func\n");  
             print LOG "accepted\t$peg\t$time_made\t$who_from\t$user\t$func\t$conf\n";  
569          }          }
570      }      }
571      close(LOG);      close(LOG);

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3