[Bio] / FigKernelPackages / FIGV.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIGV.pm

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

revision 1.4, Tue Nov 28 21:22:05 2006 UTC revision 1.5, Tue Nov 28 22:21:58 2006 UTC
# Line 64  Line 64 
64      if (wantarray)      if (wantarray)
65      {      {
66          my @res = $fig->$meth(@args);          my @res = $fig->$meth(@args);
67          warn "FIGV invoke $meth($args) returns\n", Dumper(\@res);  #       warn "FIGV invoke $meth($args) returns\n", Dumper(\@res);
68          return @res;          return @res;
69      }      }
70      else      else
71      {      {
72          my $res = $fig->$meth(@args);          my $res = $fig->$meth(@args);
73          warn "FIGV invoke $meth($args) returns\n", Dumper($res);  #       warn "FIGV invoke $meth($args) returns\n", Dumper($res);
74          return $res;          return $res;
75      }      }
76  }  }
77    
78    #
79    # To retrieve a subsystem in FIGV, we create the subsystem as normal via $fig->get_subsystem,
80    # then insert the row for the virtual org dir we are processing.
81    #
82    
83    sub get_subsystem
84    {
85        my($self,$ssa) = @_;
86    
87        my $fig     = $self->{_fig};
88        my $newG    = $self->{_genome};
89        my $newGdir = $self->{_orgdir};
90    
91        my $ss = $fig->get_subsystem($ssa);
92        return undef unless $ss;
93    
94        return $ss;
95    }
96    
97  sub genomes {  sub genomes {
98      my($self,$complete) = @_;      my($self,$complete) = @_;

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3