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

Diff of /FigKernelPackages/AttributeTransactions.pm

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

revision 1.2, Mon Aug 15 20:36:24 2005 UTC revision 1.3, Mon Aug 15 21:34:13 2005 UTC
# Line 130  Line 130 
130      my ($ftype, $ordinal, $key) = $self->ParseNewID($newID);      my ($ftype, $ordinal, $key) = $self->ParseNewID($newID);
131      # Get the real ID.      # Get the real ID.
132      my $realID = $self->GetRealID($ordinal, $key);      my $realID = $self->GetRealID($ordinal, $key);
133        # Delete any existing attributes on the target.
134        my @obsoleteAttributes = $fig->get_attributes($realID);
135        for my $attribute (@obsoleteAttributes) {
136            # The attribute descriptor is actually a four-tuple, but we
137            # only need the first three.
138            my ($oldID, $key, $value) = @{$attribute};
139            $fig->delete_attribute($realID, $key, $value);
140            $self->IncrementStat("obsoleted");
141        }
142      # Get the old attributes.      # Get the old attributes.
143      my @attributes = $fig->get_attributes($fid);      my @attributes = $fig->get_attributes($fid);
144      # Loop through the attributes, adding them to the replacement feature.      # Loop through the attributes, adding them to the replacement feature.

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3