[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.3, Mon Dec 5 18:56:37 2005 UTC
# Line 1  Line 1 
1    #
2    # Copyright (c) 2003-2006 University of Chicago and Fellowship
3    # for Interpretations of Genomes. All Rights Reserved.
4    #
5    # This file is part of the SEED Toolkit.
6    #
7    # The SEED Toolkit is free software. You can redistribute
8    # it and/or modify it under the terms of the SEED Toolkit
9    # Public License.
10    #
11    # You should have received a copy of the SEED Toolkit Public License
12    # along with this program; if not write to the University of Chicago
13    # at info@ci.uchicago.edu or the Fellowship for Interpretation of
14    # Genomes at veronika@thefig.info or download a copy from
15    # http://www.theseed.org/LICENSE.TXT.
16    #
17    
18  use FIG;  use FIG;
19  my $fig = new FIG;  my $fig = new FIG;
20    
# Line 33  Line 50 
50      ($peg,$old,$new) = split(/\t/,$_);      ($peg,$old,$new) = split(/\t/,$_);
51      if ($old eq $fig->function_of($peg,$userR))      if ($old eq $fig->function_of($peg,$userR))
52      {      {
53          $fig->assign_function($peg,$userR,$new,"");          if ($user =~ /master:(.*)/)
54          if ($annotations)          {
55                $fig->assign_function($peg,"master",$new,"");
56                $fig->add_annotation($peg,$userR,"Set master function to\n$new\n");
57            }
58            else
59          {          {
60              $who = ($user ne $userR) ? "master" : $userR;              $fig->assign_function($peg,$user,$new,"");
61              $fig->add_annotation($peg,$userR,"Set $who function to\n$new\n");              $fig->add_annotation($peg,$user,"Set function to\n$new\n");
62          }          }
63      }      }
64  }  }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3