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

Diff of /FigKernelPackages/FIGO.pm

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

revision 1.4, Thu Feb 22 03:01:29 2007 UTC revision 1.5, Thu Feb 22 03:54:53 2007 UTC
# Line 700  Line 700 
700      return map { &AnnotationO::new('AnnotationO',@$_) } $fig->feature_annotations($self->id,1);      return map { &AnnotationO::new('AnnotationO',@$_) } $fig->feature_annotations($self->id,1);
701  }  }
702    
703    sub in_subsystems {
704        my($self) = @_;
705        my $figO = $self->{_figO};
706        my $fig  = $figO->{_fig};
707    
708        return map { new SubsystemO($figO,$_) } $fig->peg_to_subsystems($self->id);
709    }
710    
711    
712  =head3 possibly_truncated  =head3 possibly_truncated
# Line 1096  Line 1103 
1103  sub peg1 {  sub peg1 {
1104      my($self) = @_;      my($self) = @_;
1105    
1106      return $self->{_peg1};      my $figO = $self->{_figO};
1107        return new FeatureO($figO,$self->{_peg1});
1108  }  }
1109    
1110    
# Line 1108  Line 1116 
1116  sub peg2 {  sub peg2 {
1117      my($self) = @_;      my($self) = @_;
1118    
1119      return $self->{_peg2};      my $figO = $self->{_figO};
1120        return new FeatureO($figO,$self->{_peg2});
1121  }  }
1122    
1123    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3