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

Diff of /FigKernelPackages/Subsystem.pm

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

revision 1.83, Tue Mar 21 16:59:12 2006 UTC revision 1.84, Tue Mar 21 17:06:47 2006 UTC
# Line 730  Line 730 
730  {  {
731      my($self, $skip_delete) = @_;      my($self, $skip_delete) = @_;
732    
733        if ($self->{empty_ss})
734        {
735            warn "Not synching empty subsystem $self->{name}\n";
736            return;
737        }
738    
739      my $rdbH = $self->{fig}->db_handle();      my $rdbH = $self->{fig}->db_handle();
740    
741      if (!$skip_delete)      if (!$skip_delete)
# Line 803  Line 809 
809      my $ssa;      my $ssa;
810      if  (!open($ssa,"<$self->{dir}/spreadsheet"))      if  (!open($ssa,"<$self->{dir}/spreadsheet"))
811      {      {
812          warn "Spreadsheet does not exist in subsystem\n";          warn "Spreadsheet does not exist in subsystem $self->{name}\n";
813            $self->{empty_ss}++;
814          return;          return;
815      }      }
816    
# Line 845  Line 852 
852      $self->load_version();      $self->load_version();
853      $self->load_exchangable();      $self->load_exchangable();
854      $self->load_curation();      $self->load_curation();
855    
856        return 1;
857  }  }
858    
859  sub load_notes  sub load_notes
# Line 1403  Line 1412 
1412    
1413      my $glist = $self->{genome};      my $glist = $self->{genome};
1414    
1415      return @$glist;      return ref($glist) ? @$glist : ();
1416  }  }
1417    
1418  =head3 get_variant_codes  =head3 get_variant_codes

Legend:
Removed from v.1.83  
changed lines
  Added in v.1.84

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3