From d9c340f1b58d755944b592172487bd129ea16f9c Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Wed, 20 Jan 2010 20:48:16 -0800
Subject: [PATCH] Convert Folder to Moose.

---
 lib/WebGUI/Asset/Wobject/Folder.pm | 118 +++++++++++------------------
 1 file changed, 46 insertions(+), 72 deletions(-)

diff --git a/lib/WebGUI/Asset/Wobject/Folder.pm b/lib/WebGUI/Asset/Wobject/Folder.pm
index d7d8b1018..b16a894b0 100644
--- a/lib/WebGUI/Asset/Wobject/Folder.pm
+++ b/lib/WebGUI/Asset/Wobject/Folder.pm
@@ -15,10 +15,53 @@ package WebGUI::Asset::Wobject::Folder;
 =cut
 
 use strict;
-use WebGUI::Asset::Wobject;
-use WebGUI::Utility;
+use WebGUI::Definition::Asset;
+extends 'WebGUI::Asset::Wobject';
 
-our @ISA = qw(WebGUI::Asset::Wobject);
+attribute assetName   => ["assetName", 'Asset_Folder'];
+attribute uiLevel     => 5;
+attribute icon        => 'folder.gif';
+attribute tableName   => 'Folder';
+
+property visitorCacheTimeout => (
+             tab             => "display",
+             fieldType       => "interval",
+             default         => 3600,
+             uiLevel         => 8,
+             label           => ["visitor cache timeout",      'Asset_Folder'],
+             hoverHelp       => ["visitor cache timeout help", 'Asset_Folder'],
+         );
+         # TODO: This should probably be a proper "sortBy" with multiple possible fields
+property sortAlphabetically => (
+             fieldType       => "yesNo",
+             default         => 0,
+             tab             => 'display',
+             label           => ['sort alphabetically',      'Asset_Folder'],
+             hoverHelp       => ['sort alphabetically help', 'Asset_Folder'],
+         );
+
+#    my %optionsSortOrder = (
+#        ASC     => $i18n->get( "editForm sortOrder ascending" ),
+#        DESC    => $i18n->get( "editForm sortOrder descending" ),
+#    );
+property sortOrder => (
+             tab             => 'display',
+             fieldType       => "selectBox",
+             #options         => \%optionsSortOrder,
+             default         => "ASC",
+             label           => [ "editForm sortOrder label" ,       'Asset_Folder'],
+             hoverHelp       => [ "editForm sortOrder description" , 'Asset_Folder'],
+         );
+property templateId => (
+             fieldType       => "template",
+             default         => 'PBtmpl0000000000000078',
+             namespace       => 'Folder',
+             tab             => 'display',
+             label           => ['folder template title',       'Asset_Folder'],
+             hoverHelp       => ['folder template description', 'Asset_Folder'],
+         );
+
+use WebGUI::Utility;
 
 =head1 NAME
 
@@ -41,75 +84,6 @@ These methods are available from this class:
 
 
 
-#-------------------------------------------------------------------
-
-=head2 definition ( definition )
-
-Defines the properties of this asset.
-
-=head3 definition
-
-A hash reference passed in from a subclass definition.
-
-=cut
-
-sub definition {
-    my $class       = shift;
-	my $session     = shift;
-    my $definition  = shift;
-	my $i18n        = WebGUI::International->new($session,"Asset_Folder");
-
-    my %optionsSortOrder = (
-        ASC     => $i18n->get( "editForm sortOrder ascending" ),
-        DESC    => $i18n->get( "editForm sortOrder descending" ),
-    );
-
-    push @{ $definition }, {
-		assetName   => $i18n->get("assetName"),
-		uiLevel     => 5,
-		icon        => 'folder.gif',
-        tableName   => 'Folder',
-        className   => 'WebGUI::Asset::Wobject::Folder',
-		autoGenerateForms => 1,
-        properties  => {
-			visitorCacheTimeout => {
-				tab             => "display",
-				fieldType       => "interval",
-				defaultValue    => 3600,
-				uiLevel         => 8,
-				label           => $i18n->get("visitor cache timeout"),
-				hoverHelp       => $i18n->get("visitor cache timeout help"),
-            },
-            # TODO: This should probably be a proper "sortBy" with multiple possible fields
-			sortAlphabetically => {
-				fieldType       => "yesNo",
-				defaultValue    => 0,
-				tab             => 'display',
-				label           => $i18n->get('sort alphabetically'),
-                hoverHelp       => $i18n->get('sort alphabetically help'),
-            },
-            sortOrder => {
-                tab             => 'display',
-                fieldType       => "selectBox",
-                options         => \%optionsSortOrder,
-                defaultValue    => "ASC",
-                label           => $i18n->get( "editForm sortOrder label" ),
-                hoverHelp       => $i18n->get( "editForm sortOrder description" ),
-            },
-			templateId => {
-				fieldType       => "template",
-				defaultValue    => 'PBtmpl0000000000000078',
-                namespace       => 'Folder',
-				tab             => 'display',
-				label           => $i18n->get('folder template title'),
-				hoverHelp       => $i18n->get('folder template description'),
-            },
-        },
-    };
-
-    return $class->SUPER::definition($session, $definition);
-}
-
 #-------------------------------------------------------------------
 
 =head2 getContentLastModified