[Bio] / Sprout / SproutLoad.pm Repository:
ViewVC logotype

Diff of /Sprout/SproutLoad.pm

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

revision 1.45, Sun Jun 25 07:53:37 2006 UTC revision 1.46, Mon Jun 26 19:13:16 2006 UTC
# Line 634  Line 634 
634  The following relations are loaded by this method.  The following relations are loaded by this method.
635    
636      Subsystem      Subsystem
637        SubsystemClass
638      Role      Role
639      RoleEC      RoleEC
640      SSCell      SSCell
# Line 696  Line 697 
697      my $loadConsistsOfGenomes = $self->_TableLoader('ConsistsOfGenomes', $self->PrimaryOnly);      my $loadConsistsOfGenomes = $self->_TableLoader('ConsistsOfGenomes', $self->PrimaryOnly);
698      my $loadHasRoleSubset = $self->_TableLoader('HasRoleSubset', $self->PrimaryOnly);      my $loadHasRoleSubset = $self->_TableLoader('HasRoleSubset', $self->PrimaryOnly);
699      my $loadHasGenomeSubset = $self->_TableLoader('HasGenomeSubset', $self->PrimaryOnly);      my $loadHasGenomeSubset = $self->_TableLoader('HasGenomeSubset', $self->PrimaryOnly);
700        my $loadSubsystemClass = $self->_TableLoader('SubsystemClass', $self->PrimaryOnly);
701      if ($self->{options}->{loadOnly}) {      if ($self->{options}->{loadOnly}) {
702          Trace("Loading from existing files.") if T(2);          Trace("Loading from existing files.") if T(2);
703      } else {      } else {
# Line 721  Line 723 
723                  my $curator = $sub->get_curator();                  my $curator = $sub->get_curator();
724                  my $notes = $sub->get_notes();                  my $notes = $sub->get_notes();
725                  $loadSubsystem->Put($subsysID, $curator, $notes);                  $loadSubsystem->Put($subsysID, $curator, $notes);
726                    my $class = $fig->subsystem_classification($subsysID);
727                    if ($class) {
728                        $loadSubsystemClass->Put($subsysID, $class);
729                    }
730                  # Connect it to its roles. Each role is a column in the subsystem spreadsheet.                  # Connect it to its roles. Each role is a column in the subsystem spreadsheet.
731                  for (my $col = 0; defined($roleID = $sub->get_role($col)); $col++) {                  for (my $col = 0; defined($roleID = $sub->get_role($col)); $col++) {
732                      # Connect to this role.                      # Connect to this role.

Legend:
Removed from v.1.45  
changed lines
  Added in v.1.46

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3