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

Diff of /FigKernelPackages/raedraw.pm

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

revision 1.8, Fri Apr 8 20:22:23 2005 UTC revision 1.9, Mon Jul 11 21:25:03 2005 UTC
# Line 501  Line 501 
501    
502   my @attr = $fig->feature_attributes($peg);   my @attr = $fig->feature_attributes($peg);
503   if (@attr > 0) {   if (@attr > 0) {
504   foreach my $_ (@attr) {   foreach (@attr) {
505      next if ($self->{'addedtv'}->{$tv->[1].$peg}); # specifically avoid dups with tag/value pairs      next if ($self->{'addedtv'}->{$tv->[1].$peg}); # specifically avoid dups with tag/value pairs
506      $self->{'addedtv'}->{$tv->[1].$peg}=1;      $self->{'addedtv'}->{$tv->[1].$peg}=1;
507      my($fid,$tag,$val,$url) = @$_;      my($fid,$tag,$val,$url) = @$_;

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3