[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.7, Thu Apr 7 19:16:10 2005 UTC revision 1.8, Fri Apr 8 20:22:23 2005 UTC
# Line 504  Line 504 
504   foreach my $_ (@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($fid,$tag,$val,$url) = @$_;
508      next unless (lc($tag) eq lc($tv->[1]));      next unless (lc($tag) eq lc($tv->[1]));
509    
510      # we are going to test if it is a number. If it is not a number, we don't want to check min/max      # we are going to test if it is a number. If it is not a number, we don't want to check min/max

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3