[Bio] / Sprout / ERDBGenerate.pm Repository:
ViewVC logotype

Diff of /Sprout/ERDBGenerate.pm

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

revision 1.4, Thu Apr 2 01:35:54 2009 UTC revision 1.5, Thu May 28 18:06:58 2009 UTC
# Line 211  Line 211 
211          # Push the value into the result list.          # Push the value into the result list.
212          push @values, $value;          push @values, $value;
213          Trace("Field $name in $self->{table} has value \"$value\".") if T(4);          Trace("Field $name in $self->{table} has value \"$value\".") if T(4);
         # Record its length.  
         $retVal += length("$value");  
214      }      }
215      # Verify and fix the field values.      # Verify and fix the field values.
216      $erdb->VerifyFields($self->{table}, \@values);      $erdb->VerifyFields($self->{table}, \@values);
217      $erdb->DigestFields($self->{table}, \@values);      $erdb->DigestFields($self->{table}, \@values);
218        # Compute the total field length.
219        for my $value (@values) {
220            $retVal += length("$value");
221        }
222      # Write the record.      # Write the record.
223      Tracer::PutLine($oh, \@values);      Tracer::PutLine($oh, \@values);
224      # Return the record length.      # Return the record length.

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3