[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.7, Thu Feb 22 14:05:27 2007 UTC revision 1.8, Thu Feb 22 14:28:32 2007 UTC
# Line 1234  Line 1234 
1234      my $figO = $self->{_figO};      my $figO = $self->{_figO};
1235      my $subO = $self->{_subO};      my $subO = $self->{_subO};
1236      if (! $subO) { $subO = $self->{_subO} = new Subsystem($self->{_id},$figO->{_fig}); }      if (! $subO) { $subO = $self->{_subO} = new Subsystem($self->{_id},$figO->{_fig}); }
1237      if (! defined($subO) { return undef }      if (! defined($subO)) { return undef }
1238    
1239      return map { &GenomeO::new('GenomeO',$figO,$_) } $subO->get_genomes;      return map { &GenomeO::new('GenomeO',$figO,$_) } $subO->get_genomes;
1240  }  }
1241    
   
   
1242  =head3 roles  =head3 roles
1243    
1244  =cut  =cut
# Line 1251  Line 1249 
1249      my $figO = $self->{_figO};      my $figO = $self->{_figO};
1250      my $subO = $self->{_subO};      my $subO = $self->{_subO};
1251      if (! $subO) { $subO = $self->{_subO} = new Subsystem($self->{_id},$figO->{_fig}); }      if (! $subO) { $subO = $self->{_subO} = new Subsystem($self->{_id},$figO->{_fig}); }
1252      if (! defined($subO) { return undef }      if (! defined($subO)) { return undef }
1253      return map { &FunctionalRoleO::new('FunctionalRoleO',$figO,$_) }  $subO->get_roles($self->id);      return map { &FunctionalRoleO::new('FunctionalRoleO',$figO,$_) }  $subO->get_roles($self->id);
1254  }  }
1255    
# Line 1265  Line 1263 
1263      my $figO = $self->{_figO};      my $figO = $self->{_figO};
1264      my $subO = $self->{_subO};      my $subO = $self->{_subO};
1265      if (! $subO) { $subO = $self->{_subO} = new Subsystem($self->{_id},$figO->{_fig}); }      if (! $subO) { $subO = $self->{_subO} = new Subsystem($self->{_id},$figO->{_fig}); }
   
1266      return defined($subO) ? $subO->get_curator : undef;      return defined($subO) ? $subO->get_curator : undef;
1267  }  }
1268    
# Line 1282  Line 1279 
1279      my $figO = $self->{_figO};      my $figO = $self->{_figO};
1280      my $subO = $self->{_subO};      my $subO = $self->{_subO};
1281      if (! $subO) { $subO = $self->{_subO} = new Subsystem($self->{_id},$figO->{_fig}); }      if (! $subO) { $subO = $self->{_subO} = new Subsystem($self->{_id},$figO->{_fig}); }
1282      if (! defined($subO) { return undef }      if (! defined($subO)) { return undef }
1283    
1284      return $subO->get_variant_code_for_genome($genome->id);      return $subO->get_variant_code_for_genome($genome->id);
1285  }  }
# Line 1299  Line 1296 
1296      my $figO = $self->{_figO};      my $figO = $self->{_figO};
1297      my $subO = $self->{_subO};      my $subO = $self->{_subO};
1298      if (! $subO) { $subO = $self->{_subO} = new Subsystem($self->{_id},$figO->{_fig}); }      if (! $subO) { $subO = $self->{_subO} = new Subsystem($self->{_id},$figO->{_fig}); }
1299      if (! defined($subO) { return undef }      if (! defined($subO)) { return undef }
1300    
1301      return $subO->get_pegs_from_cell($genome->id,$role->id);      return $subO->get_pegs_from_cell($genome->id,$role->id);
1302  }  }

Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3