[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.34, Tue Jun 29 14:15:57 2004 UTC revision 1.35, Sun Jul 25 21:48:15 2004 UTC
# Line 628  Line 628 
628  =cut  =cut
629    
630  sub install_assignments {  sub install_assignments {
631      my($fig,$package) = @_;      my($fig,$package,$make_assignments) = @_;
632      my($user,$who,$date,$userR,@assignments,$peg,$aliases,$org,$func);      my($user,$who,$date,$userR,@assignments,$peg,$aliases,$org,$func);
633      my(%pegs,%seq_of,@seq,$peg_to,$trans_pegs,$seq);      my(%pegs,%seq_of,@seq,$peg_to,$trans_pegs,$seq);
634    
# Line 676  Line 676 
676      &FIG::verify_dir("$FIG_Config::data/Assignments/$userR");      &FIG::verify_dir("$FIG_Config::data/Assignments/$userR");
677      my $file = &FIG::epoch_to_readable($date) . ":$who:imported";      my $file = &FIG::epoch_to_readable($date) . ":$who:imported";
678      $file =~ s/\//-/g;      $file =~ s/\//-/g;
679    
680        if (! $make_assignments)
681        {
682      open(OUT,">$FIG_Config::data/Assignments/$userR/$file")      open(OUT,">$FIG_Config::data/Assignments/$userR/$file")
683          || die "could not open $FIG_Config::data/Assignments/$userR/$file";          || die "could not open $FIG_Config::data/Assignments/$userR/$file";
684        }
685    
686      foreach $peg (keys(%$trans_pegs))      foreach $peg (keys(%$trans_pegs))
687      {      {
# Line 685  Line 689 
689          $func   = $pegs{$peg}->[2];          $func   = $pegs{$peg}->[2];
690          if ($fig->function_of($peg_to) ne $func)          if ($fig->function_of($peg_to) ne $func)
691          {          {
692                if ($make_assignments)
693                {
694                    if ($user =~ /master:(.*)/)
695                    {
696                        $userR = $1;
697                        $fig->assign_function($peg_to,"master",$func,"");
698                        if ($userR ne "none")
699                        {
700                            $fig->add_annotation($peg_to,$userR,"Set master function to\n$func\n");
701                        }
702                    }
703                    else
704                    {
705                        $fig->assign_function($peg_to,$user,$func,"");
706                        if ($user ne "none")
707                        {
708                            $fig->add_annotation($peg_to,$user,"Set function to\n$func\n");
709                        }
710                    }
711                }
712                else
713                {
714              print OUT "$peg_to\t$func\n";              print OUT "$peg_to\t$func\n";
715          }          }
716      }      }
717        }
718        if (! $make_assignments)
719        {
720      close(OUT);      close(OUT);
721      if (! -s "$FIG_Config::data/Assignments/$userR/$file") { unlink("$FIG_Config::data/Assignments/$userR/$file") }      if (! -s "$FIG_Config::data/Assignments/$userR/$file") { unlink("$FIG_Config::data/Assignments/$userR/$file") }
722  }  }
723    }
724    
725  =pod  =pod
726    

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3