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

Diff of /FigKernelScripts/peg_to_subsystems.pl

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

revision 1.1, Mon Mar 28 11:03:54 2005 UTC revision 1.2, Mon Mar 28 11:18:34 2005 UTC
# Line 13  Line 13 
13          foreach $x ($fig->subsystems_for_peg($peg))          foreach $x ($fig->subsystems_for_peg($peg))
14          {          {
15              ($subsystem,$role) = @$x;              ($subsystem,$role) = @$x;
16              print "$peg\t$func\t$subsystem\t$role\n";              $curator = $fig->subsystem_curator($subsystem);
17                $curator =~ s/^master://;
18                print "$peg\t$func\t$subsystem\t$role\t$curator\n";
19          }          }
20      }      }
21  }  }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3