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

Diff of /Sprout/CustomAttributes.pm

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

revision 1.11, Wed Nov 29 20:28:52 2006 UTC revision 1.12, Fri Dec 15 03:24:59 2006 UTC
# Line 568  Line 568 
568      my @keys = $self->GetFlat(['AttributeKey'], "", [], 'AttributeKey(id)');      my @keys = $self->GetFlat(['AttributeKey'], "", [], 'AttributeKey(id)');
569      Trace(scalar(@keys) . " keys found during backup.") if T(2);      Trace(scalar(@keys) . " keys found during backup.") if T(2);
570      # Open the file for output.      # Open the file for output.
571      my $fh = Open(undef, $fileName);      my $fh = Open(undef, ">$fileName");
572      # Loop through the keys.      # Loop through the keys.
573      for my $key (@keys) {      for my $key (@keys) {
574          Trace("Backing up attribute $key.") if T(3);          Trace("Backing up attribute $key.") if T(3);
575          $retVal->Add(keys => 1);          $retVal->Add(keys => 1);
576          # Loop through this key's values.          # Loop through this key's values.
577          my $query = $self->Get(['HasValueFor'], "HasValueFor(to-link) = ?", [$key]);          my $query = $self->Get(['HasValueFor'], "HasValueFor(from-link) = ?", [$key]);
578          my $valuesFound = 0;          my $valuesFound = 0;
579          while (my $line = $query->Fetch()) {          while (my $line = $query->Fetch()) {
580              $valuesFound++;              $valuesFound++;

Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3