[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.6, Fri Feb 4 06:59:46 2005 UTC revision 1.7, Thu Apr 7 19:16:10 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 $_ (@attr) {   foreach my $_ (@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($tag,$val,$url) = @$_;     my($tag,$val,$url) = @$_;

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3