[Bioperl-guts-l] bioperl commit

[Allen Day]

allenday
Mon Aug 16 21:26:21 EDT 2004
Update of /home/repository/bioperl/bioperl-live/Bio/Graphics
In directory pub.open-bio.org:/tmp/cvs-serv20543/Bio/Graphics

Modified Files:
	Glyph.pm 
Log Message:
added recognition of 'maxdepth' option.  if declared for a track and > 0,
the glyph only attempts to render subfeatures down to level 'maxdepth'.

bioperl-live/Bio/Graphics Glyph.pm,1.66,1.67
===================================================================
RCS file: /home/repository/bioperl/bioperl-live/Bio/Graphics/Glyph.pm,v
retrieving revision 1.66
retrieving revision 1.67
diff -u -r1.66 -r1.67
--- /home/repository/bioperl/bioperl-live/Bio/Graphics/Glyph.pm	2004/06/09 20:32:57	1.66
+++ /home/repository/bioperl/bioperl-live/Bio/Graphics/Glyph.pm	2004/08/17 01:26:21	1.67
@@ -40,8 +40,14 @@
   $self->{flip}++  if $flip;
   $self->{top} = 0;
 
+  my @subfeatures;
   my @subglyphs;
-  my @subfeatures = $self->subseq($feature);
+
+  if(defined($self->factory->get_option('maxdepth')) && $self->factory->get_option('maxdepth') > 0){
+    @subfeatures = $self->subseq($feature) if $level <= $self->factory->get_option('maxdepth');
+  } else {
+    @subfeatures = $self->subseq($feature);
+  }
 
   if (@subfeatures) {