Revert "Calls to set() and update() set attributes as well as "properties"."

This reverts commit 57fe0721ab.
This commit is contained in:
Scott Walters 2010-05-31 14:39:36 -04:00
parent c31fee588c
commit 483acbc382
2 changed files with 5 additions and 21 deletions

View file

@ -126,8 +126,7 @@ sub addRevision {
$session->db->commit;
# current values, and the user set properties
# my %mergedProperties = (%{$self->get}, %{$properties}, (status => 'pending', revisedBy => $session->user->userId, tagId => $workingTag->getId), ); # XXX results in the setting of read-only properties and nothing else seems to be done with this other than just set them again
my %mergedProperties = ( %{$properties}, status => 'pending', revisedBy => $session->user->userId, tagId => $workingTag->getId, );
my %mergedProperties = (%{$self->get}, %{$properties}, (status => 'pending', revisedBy => $session->user->userId, tagId => $workingTag->getId), );
#Instantiate new revision and fill with real data
my $newVersion = WebGUI::Asset->newById($session, $self->getId, $now);