fixed a bunch of bugs...almost working

This commit is contained in:
JT Smith 2009-10-23 11:07:02 -05:00
parent 509c2d64ee
commit 377c49d141
4 changed files with 17 additions and 7 deletions

View file

@ -123,7 +123,7 @@ sub addRevision {
my %defaults = ();
# get the default values of each property
foreach my $property ($self->getProperties) {
my $defintion = $self->getProperty($property);
my $definition = $self->getProperty($property);
$defaults{$property} = $definition->{defaultValue};
if (ref($defaults{$property}) eq 'ARRAY' && !$definition->{serialize}) {
$defaults{$property} = $defaults{$property}->[0];