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

Diff of /Sprout/ERDBObject.pm

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

revision 1.4, Thu Dec 6 14:58:03 2007 UTC revision 1.6, Tue Sep 16 18:54:43 2008 UTC
# Line 174  Line 174 
174      # Get the field hash.      # Get the field hash.
175      my $fields = $self->{_values};      my $fields = $self->{_values};
176      # Add the new values.      # Add the new values.
177      Tracer::AddToListMap($fields, $name, @values);      push @{$fields->{$name}}, @values;
178  }  }
179    
180  =head3 PrimaryValue  =head3 PrimaryValue
# Line 518  Line 518 
518              $fieldHash{$fieldKey} = [$realValue];              $fieldHash{$fieldKey} = [$realValue];
519              Trace("$fieldKey = '$thisValue'") if T(Fields => 3);              Trace("$fieldKey = '$thisValue'") if T(Fields => 3);
520          }          }
         # Save the new-object flag.  
         $newObjectFlag = shift @values;  
521      }      }
522      # Create the result object.      # Create the result object.
523      my $self = { _db => $database, _targetEntity => $target, _values => \%fieldHash,      my $self = { _db => $database, _targetEntity => $target, _values => \%fieldHash };
                  _newObjectFlag => $newObjectFlag };  
524      # Bless and return it.      # Bless and return it.
525      bless $self;      bless $self;
526      return $self;      return $self;

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3