[Bio] / FigKernelScripts / conditionally_assign.pl Repository:
ViewVC logotype

Diff of /FigKernelScripts/conditionally_assign.pl

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

revision 1.1, Fri Aug 6 16:13:00 2004 UTC revision 1.2, Sat Jan 8 18:22:01 2005 UTC
# Line 33  Line 33 
33      ($peg,$old,$new) = split(/\t/,$_);      ($peg,$old,$new) = split(/\t/,$_);
34      if ($old eq $fig->function_of($peg,$userR))      if ($old eq $fig->function_of($peg,$userR))
35      {      {
36          $fig->assign_function($peg,$userR,$new,"");          if ($user =~ /master:(.*)/)
         if ($annotations)  
37          {          {
38              $who = ($user ne $userR) ? "master" : $userR;              $fig->assign_function($peg,"master",$new,"");
39              $fig->add_annotation($peg,$userR,"Set $who function to\n$new\n");              $fig->add_annotation($peg,$userR,"Set master function to\n$new\n");
40            }
41            else
42            {
43                $fig->assign_function($peg,$user,$new,"");
44                $fig->add_annotation($peg,$user,"Set function to\n$new\n");
45          }          }
46      }      }
47  }  }

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3