[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.625, Wed Sep 26 03:32:54 2007 UTC revision 1.626, Mon Oct 1 15:33:11 2007 UTC
# Line 8204  Line 8204 
8204    
8205  sub osims {  sub osims {
8206      my ( $self, $id, $maxN, $maxP, $select, $max_expand, $filters ) = @_;      my ( $self, $id, $maxN, $maxP, $select, $max_expand, $filters ) = @_;
8207    
8208        my @res;
8209    
8210        if (ref($id) eq 'ARRAY')
8211        {
8212            for my $one_id (@$id)
8213            {
8214                push(@res, &osims_one($self, $one_id, $maxN, $maxP, $select, $max_expand, $filters));
8215            }
8216            return @res;
8217        }
8218        else
8219        {
8220            return &osims_one;
8221        }
8222    }
8223    
8224    sub osims_one {
8225        my ( $self, $id, $maxN, $maxP, $select, $max_expand, $filters ) = @_;
8226      my( $sim );      my( $sim );
8227    
8228      $max_expand = defined( $max_expand ) ? $max_expand : 10000;      $max_expand = defined( $max_expand ) ? $max_expand : 10000;

Legend:
Removed from v.1.625  
changed lines
  Added in v.1.626

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3