[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.6, Thu Feb 22 13:43:18 2007 UTC revision 1.7, Thu Feb 22 14:05:27 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 }
1238    
1239      return map { &GenomeO::new('GenomeO',$figO,$_) } $subO->get_genomes;      return map { &GenomeO::new('GenomeO',$figO,$_) } $subO->get_genomes;
1240  }  }
# Line 1250  Line 1251 
1251      my $figO = $self->{_figO};      my $figO = $self->{_figO};
1252      my $subO = $self->{_subO};      my $subO = $self->{_subO};
1253      if (! $subO) { $subO = $self->{_subO} = new Subsystem($self->{_id},$figO->{_fig}); }      if (! $subO) { $subO = $self->{_subO} = new Subsystem($self->{_id},$figO->{_fig}); }
1254        if (! defined($subO) { return undef }
1255      return map { &FunctionalRoleO::new('FunctionalRoleO',$figO,$_) }  $subO->get_roles($self->id);      return map { &FunctionalRoleO::new('FunctionalRoleO',$figO,$_) }  $subO->get_roles($self->id);
1256  }  }
1257    
   
   
1258  =head3 curator  =head3 curator
1259    
1260  =cut  =cut
# Line 1267  Line 1266 
1266      my $subO = $self->{_subO};      my $subO = $self->{_subO};
1267      if (! $subO) { $subO = $self->{_subO} = new Subsystem($self->{_id},$figO->{_fig}); }      if (! $subO) { $subO = $self->{_subO} = new Subsystem($self->{_id},$figO->{_fig}); }
1268    
1269      return $subO->get_curator;      return defined($subO) ? $subO->get_curator : undef;
1270  }  }
1271    
1272    
# Line 1283  Line 1282 
1282      my $figO = $self->{_figO};      my $figO = $self->{_figO};
1283      my $subO = $self->{_subO};      my $subO = $self->{_subO};
1284      if (! $subO) { $subO = $self->{_subO} = new Subsystem($self->{_id},$figO->{_fig}); }      if (! $subO) { $subO = $self->{_subO} = new Subsystem($self->{_id},$figO->{_fig}); }
1285        if (! defined($subO) { return undef }
1286    
1287      return $subO->get_variant_code_for_genome($genome->id);      return $subO->get_variant_code_for_genome($genome->id);
1288  }  }
# Line 1299  Line 1299 
1299      my $figO = $self->{_figO};      my $figO = $self->{_figO};
1300      my $subO = $self->{_subO};      my $subO = $self->{_subO};
1301      if (! $subO) { $subO = $self->{_subO} = new Subsystem($self->{_id},$figO->{_fig}); }      if (! $subO) { $subO = $self->{_subO} = new Subsystem($self->{_id},$figO->{_fig}); }
1302        if (! defined($subO) { return undef }
1303    
1304      return $subO->get_pegs_from_cell($genome->id,$role->id);      return $subO->get_pegs_from_cell($genome->id,$role->id);
1305  }  }

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3