From 758fa76e859f8a0de380eb802f0ccff3df247f96 Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Mon, 22 Sep 2008 14:47:11 +0000
Subject: [PATCH] adding default template to skeleton

---
 docs/upgrades/_upgrade.skeleton | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/docs/upgrades/_upgrade.skeleton b/docs/upgrades/_upgrade.skeleton
index 9188c51f0..36283c4d3 100644
--- a/docs/upgrades/_upgrade.skeleton
+++ b/docs/upgrades/_upgrade.skeleton
@@ -60,6 +60,22 @@ sub addPackage {
 
     # Make the package not a package anymore
     $package->update({ isPackage => 0 });
+    
+    # Set the default flag for templates added
+    my $assetIds
+        = $package->getLineage( ['self','descendants'], {
+            includeOnlyClasses  => [ 'WebGUI::Asset::Template' ],
+        } );
+    for my $assetId ( @{ $assetIds } ) {
+        my $asset   = WebGUI::Asset->newByDynamicClass( $session, $assetId );
+        if ( !$asset ) {
+            print "Couldn't instantiate asset with ID '$assetId'. Please check package '$file' for corruption.\n";
+            next;
+        }
+        $asset->update( { isDefault => 1 } );
+    }
+
+    return;
 }
 
 #-------------------------------------------------