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

Diff of /FigKernelScripts/make_annotations_for_sprout.pl

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

revision 1.1, Tue Sep 21 22:56:50 2004 UTC revision 1.2, Sat Sep 25 04:11:21 2004 UTC
# Line 10  Line 10 
10  && ($annotations_file = shift)  && ($annotations_file = shift)
11  && ($istarget_file    = shift)  && ($istarget_file    = shift)
12  && ($makeannot_file   = shift)  && ($makeannot_file   = shift)
13  ) || die "usage: $usage";  ) || die "\n   usage: $usage\n\n";
14    
15  @genomes = grep { m/^(\S+)/; $_ = $1 } `cut -f1 $genomes_file`;  @genomes = grep { m/^(\S+)/; $_ = $1 } `cut -f1 $genomes_file`;
16    
# Line 40  Line 40 
40                  print MAKEAN "FIG\t$peg:$time\n";                  print MAKEAN "FIG\t$peg:$time\n";
41              }              }
42    
43                foreach $x ($fig->feature_annotations($peg))
44                {
45                    (undef, $timestamp, $user, $annot) = @$x;
46                    $annot =~ s/\cM//gs;
47                    $annot =~ s/\n/\\n/gs;
48                    if ($annot !~ m/^Set .*function to/)
49                    {
50                        print ANNOT  "$peg:$timestamp\t$timestamp\t$user\\n$annot\n";
51                        print TARGET "$peg\t$peg:$timestamp\n";
52                        print MAKEAN "$user\t$peg:$timestamp\n";
53                    }
54                }
55    
56              if (@aliases = $fig->mapped_prot_ids($peg))              if (@aliases = $fig->mapped_prot_ids($peg))
57              {              {
58                  foreach $alias_record (@aliases)                  foreach $alias_record (@aliases)
# Line 78  Line 91 
91                      {                      {
92                          print ANNOT  "$alias:$time\t$time\t$user\\nSet $setname function to\\n$func\n";                          print ANNOT  "$alias:$time\t$time\t$user\\nSet $setname function to\\n$func\n";
93                          print TARGET "$alias\t$alias:$time\n";                          print TARGET "$alias\t$alias:$time\n";
94                          print MAKEAN "FIG\t$alias:$time\n";                          print MAKEAN "$user\t$alias:$time\n";
95                      }                      }
96                  }                  }
97              }              }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3