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

Diff of /FigKernelPackages/FIG.pm

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

revision 1.728, Wed Oct 15 13:01:26 2008 UTC revision 1.729, Thu Oct 16 17:39:05 2008 UTC
# Line 17592  Line 17592 
17592      #      #
17593      # Try the subsystem_metadata table first.      # Try the subsystem_metadata table first.
17594      #      #
17595    
17596        my @out;
17597      eval {      eval {
17598          my $rdbH = $self->db_handle;          my $rdbH = $self->db_handle;
17599          my $dbh = $rdbH->{_dbh};          my $dbh = $rdbH->{_dbh};
# Line 17600  Line 17602 
17602    
17603          my $res = $dbh->selectcol_arrayref(qq(SELECT classification          my $res = $dbh->selectcol_arrayref(qq(SELECT classification
17604                                                FROM subsystem_metadata));                                                FROM subsystem_metadata));
17605          return map { [split(/\t/, $_)] } @$res;          @out = map { [split(/\t/, $_)] } @$res;
17606      };      };
17607    
17608        if (@out)
17609        {
17610            return @out;
17611        }
17612    
17613      my %found;      my %found;
17614      map {      map {
17615          my $cl=join "\t", @{$self->subsystem_classification($_)};          my $cl=join "\t", @{$self->subsystem_classification($_)};

Legend:
Removed from v.1.728  
changed lines
  Added in v.1.729

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3