From ab18af37ef1fa5c30f18406bd907cb43fceb98dc Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Wed, 10 Nov 2010 12:36:32 -0600
Subject: [PATCH] default new revisions to approved

---
 lib/WebGUI/AssetVersioning.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/WebGUI/AssetVersioning.pm b/lib/WebGUI/AssetVersioning.pm
index ebf1784e2..675b2d490 100644
--- a/lib/WebGUI/AssetVersioning.pm
+++ b/lib/WebGUI/AssetVersioning.pm
@@ -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);