oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
Fixes t/Keywords.t number 11.
This commit is contained in:
Scott Walters 2010-05-27 22:26:37 -04:00
parent 14b79a671b
commit 57fe0721ab
2 changed files with 21 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lib/WebGUI/AssetVersioning.pm
View file

@ -126,7 +126,8 @@ 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), );
# 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, );
#Instantiate new revision and fill with real data
my $newVersion = WebGUI::Asset->newById($session, $self->getId, $now);