[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.172, Sun Oct 17 00:05:17 2004 UTC revision 1.173, Sun Oct 17 16:40:13 2004 UTC
# Line 2785  Line 2785 
2785      {      {
2786          $aliases = $relational_db_response->[0]->[0];          $aliases = $relational_db_response->[0]->[0];
2787          %aliases = map { $_ => 1 } split(/,/,$aliases);          %aliases = map { $_ => 1 } split(/,/,$aliases);
2788        }
2789    
2790          if (($relational_db_response = $rdbH->SQL("SELECT alias FROM ext_alias WHERE ( id = \'$feature_id\' )")) &&          if (($relational_db_response = $rdbH->SQL("SELECT alias FROM ext_alias WHERE ( id = \'$feature_id\' )")) &&
2791              (@$relational_db_response > 0))              (@$relational_db_response > 0))
2792          {          {
# Line 2793  Line 2795 
2795                  $aliases{$x->[0]} = 1;                  $aliases{$x->[0]} = 1;
2796              }              }
2797          }          }
2798    
2799          @aliases = sort keys(%aliases);          @aliases = sort keys(%aliases);
     }  
2800    
2801      return wantarray() ? @aliases : join(",",@aliases);      return wantarray() ? @aliases : join(",",@aliases);
2802  }  }

Legend:
Removed from v.1.172  
changed lines
  Added in v.1.173

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3