[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.725, Thu Oct 9 18:08:32 2008 UTC revision 1.726, Mon Oct 13 20:26:02 2008 UTC
# Line 17588  Line 17588 
17588    
17589  sub all_subsystem_classifications {  sub all_subsystem_classifications {
17590   my $self=shift;   my $self=shift;
17591    
17592        #
17593        # Try the subsystem_metadata table first.
17594        #
17595        eval {
17596            my $rdbH = $self->db_handle;
17597            my $dbh = $rdbH->{_dbh};
17598    
17599            local($dbh->{RaiseError})=1;
17600    
17601            my $res = $dbh->selectcol_arrayref(qq(SELECT classification
17602                                                  FROM subsystem_metadata));
17603            return map { [split(/\t/, $_)] } @$res;
17604        };
17605    
17606   my %found;   my %found;
17607   map {   map {
17608    my $cl=join "\t", @{$self->subsystem_classification($_)};    my $cl=join "\t", @{$self->subsystem_classification($_)};

Legend:
Removed from v.1.725  
changed lines
  Added in v.1.726

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3