From b277e69dd38b2a1bd46f5ac55bf7dab0d819a102 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 15 Feb 2010 13:40:02 -0800
Subject: [PATCH] Update EMSToken for Moose.

---
 lib/WebGUI/Asset/Sku/EMSToken.pm | 58 +++++++++-----------------------
 1 file changed, 16 insertions(+), 42 deletions(-)

diff --git a/lib/WebGUI/Asset/Sku/EMSToken.pm b/lib/WebGUI/Asset/Sku/EMSToken.pm
index 28bec87b4..1e4633266 100644
--- a/lib/WebGUI/Asset/Sku/EMSToken.pm
+++ b/lib/WebGUI/Asset/Sku/EMSToken.pm
@@ -15,8 +15,19 @@ package WebGUI::Asset::Sku::EMSToken;
 =cut
 
 use strict;
-use Tie::IxHash;
-use base 'WebGUI::Asset::Sku';
+use WebGUI::Definition::Asset;
+extends 'WebGUI::Asset::Sku';
+aspect assetName           => ['ems token', 'Asset_EMSToken'],
+aspect icon                => 'EMSToken.gif',
+aspect tableName           => 'EMSToken',
+property price => (
+            tab             => "shop",
+            fieldType       => "float",
+            default         => 0.00,
+            label           => ["price", 'Asset_EMSToken'],
+            hoverHelp       => ["price help", 'Asset_EMSToken'],
+         );
+
 use WebGUI::Utility;
 
 
@@ -39,43 +50,6 @@ These methods are available from this class:
 =cut
 
 
-#-------------------------------------------------------------------
-
-=head2 definition
-
-Adds price field.
-
-=cut
-
-sub definition {
-	my $class = shift;
-	my $session = shift;
-	my $definition = shift;
-	my %properties;
-	tie %properties, 'Tie::IxHash';
-	my $i18n = WebGUI::International->new($session, "Asset_EventManagementSystem");
-	my $date = WebGUI::DateTime->new($session, time());
-	%properties = (
-		price => {
-			tab             => "shop",
-			fieldType       => "float",
-			defaultValue    => 0.00,
-			label           => $i18n->get("price"),
-			hoverHelp       => $i18n->get("price help"),
-			},
-	    );
-	push(@{$definition}, {
-		assetName           => $i18n->get('ems token'),
-		icon                => 'EMSToken.gif',
-		autoGenerateForms   => 1,
-		tableName           => 'EMSToken',
-		className           => 'WebGUI::Asset::Sku::EMSToken',
-		properties          => \%properties
-	    });
-	return $class->SUPER::definition($session, $definition);
-}
-
-
 #-------------------------------------------------------------------
 
 =head2 getAddToCartForm
@@ -120,7 +94,7 @@ Returns the value of the price field.
 
 sub getPrice {
     my $self = shift;
-    return $self->get("price");
+    return $self->price;
 }
 
 #-------------------------------------------------------------------
@@ -208,7 +182,7 @@ sub view {
 	
 	# render the page;
 	my $output = '<h1>'.$self->getTitle.'</h1>'
-		.'<p>'.$self->get('description').'</p>';
+		.'<p>'.$self->description.'</p>';
 
 	# build the add to cart form
 	if ($form->get('badgeId') ne '') {
@@ -250,7 +224,7 @@ Override to return to appropriate page.
 sub www_delete {
 	my ($self) = @_;
 	return $self->session->privilege->insufficient() unless ($self->canEdit && $self->canEditIfLocked);
-    return $self->session->privilege->vitalComponent() if $self->get('isSystem');
+    return $self->session->privilege->vitalComponent() if $self->isSystem;
     return $self->session->privilege->vitalComponent() if (isIn($self->getId,
 $self->session->setting->get("defaultPage"), $self->session->setting->get("notFoundPage")));
     $self->trash;