default new revisions to approved
This commit is contained in:
parent
0fd78da778
commit
ab18af37ef
1 changed files with 2 additions and 1 deletions
|
|
@ -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);
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue