default new revisions to approved

This commit is contained in:
Doug Bell 2010-11-10 12:36:32 -06:00
parent 0fd78da778
commit ab18af37ef

View file

@ -95,7 +95,8 @@ sub addRevision {
my %mergedProperties = (%{$self->get}, %{$properties}, );
# Set some defaults
$mergedProperties{ revisedBy } ||= $session->user->userId;
$mergedProperties{ revisedBy } ||= $session->user->userId;
$mergedProperties{ status } ||= "approved";
#Instantiate new revision and fill with real data
my $newVersion = WebGUI::Asset->newById($session, $self->getId, $now);