From c670b130f61bd73de2a55329ba69e635df8b6f14 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Mon, 15 Feb 2010 09:24:00 -0800
Subject: [PATCH] Update FlatDiscount for Moose.

---
 lib/WebGUI/Asset/Sku/FlatDiscount.pm | 127 ++++++++++++---------------
 1 file changed, 56 insertions(+), 71 deletions(-)

diff --git a/lib/WebGUI/Asset/Sku/FlatDiscount.pm b/lib/WebGUI/Asset/Sku/FlatDiscount.pm
index 708eeec4a..88a8cd7b1 100644
--- a/lib/WebGUI/Asset/Sku/FlatDiscount.pm
+++ b/lib/WebGUI/Asset/Sku/FlatDiscount.pm
@@ -16,7 +16,55 @@ package WebGUI::Asset::Sku::FlatDiscount;
 
 use strict;
 use Tie::IxHash;
-use base 'WebGUI::Asset::Sku';
+use WebGUI::Definition::Asset;
+extends 'WebGUI::Asset::Sku';
+aspect assetName           => ['assetName', 'Asset_FlatDiscount'];
+aspect icon                => 'FlatDiscount.gif';
+aspect tableName           => 'FlatDiscount';
+property templateId => (
+            tab             => "display",
+            fieldType       => "template",
+            namespace       => "FlatDiscount",
+            default         => "63ix2-hU0FchXGIWkG3tow",
+            label           => ["template", 'Asset_FlatDiscount'],
+            hoverHelp       => ["template help", 'Asset_FlatDiscount'],
+         );
+property mustSpend => (
+            tab             => "shop",
+            fieldType       => "float",
+            default         => 0.00,
+            label           => ["must spend", 'Asset_FlatDiscount'],
+            hoverHelp       => ["must spend help", 'Asset_FlatDiscount'],
+         );
+property percentageDiscount => (
+            tab             => "shop",
+            fieldType       => "integer",
+            default         => 0,
+            label           => ["percentage discount", 'Asset_FlatDiscount'],
+            hoverHelp       => ["percentage discount help", 'Asset_FlatDiscount'],
+         );
+property priceDiscount => (
+            tab             => "shop",
+            fieldType       => "float",
+            default         => 0.00,
+            label           => ["price discount", 'Asset_FlatDiscount'],
+            hoverHelp       => ["price discount help", 'Asset_FlatDiscount'],
+         );
+property thankYouMessage => (
+            tab             => "properties",
+            builder         => '_thankYouMessage_default',
+            lazy            => 1,
+            fieldType       => "HTMLArea",
+            label           => ["thank you message", 'Asset_FlatDiscount'],
+            hoverHelp       => ["thank you message help", 'Asset_FlatDiscount'],
+         );
+sub _thankYouMessage_default {
+    my $session = shift->session;
+	my $i18n = WebGUI::International->new($session, "Asset_Donation");
+    return $i18n->get("default thank you message");
+}
+
+
 use WebGUI::Asset::Template;
 use WebGUI::Form;
 
@@ -59,69 +107,6 @@ sub addToCart {
 	}
 }
 
-#-------------------------------------------------------------------
-
-=head2 definition
-
-=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_FlatDiscount");
-	%properties = (
-		templateId => {
-			tab             => "display",
-			fieldType       => "template",
-            namespace       => "FlatDiscount",
-			defaultValue    => "63ix2-hU0FchXGIWkG3tow",
-			label           => $i18n->get("template"),
-			hoverHelp       => $i18n->get("template help"),
-			},
-		mustSpend => {
-			tab             => "shop",
-			fieldType       => "float",
-			defaultValue    => 0.00,
-			label           => $i18n->get("must spend"),
-			hoverHelp       => $i18n->get("must spend help"),
-			},
-		percentageDiscount => {
-			tab             => "shop",
-			fieldType       => "integer",
-			defaultValue    => 0,
-			label           => $i18n->get("percentage discount"),
-			hoverHelp       => $i18n->get("percentage discount help"),
-			},
-		priceDiscount => {
-			tab             => "shop",
-			fieldType       => "float",
-			defaultValue    => 0.00,
-			label           => $i18n->get("price discount"),
-			hoverHelp       => $i18n->get("price discount help"),
-			},
-        thankYouMessage => {
-            tab             => "properties",
-			defaultValue    => $i18n->get("default thank you message"),
-			fieldType       => "HTMLArea",
-			label           => $i18n->get("thank you message"),
-			hoverHelp       => $i18n->get("thank you message help"),
-            },
-	    );
-	push(@{$definition}, {
-		assetName           => $i18n->get('assetName'),
-		icon                => 'FlatDiscount.gif',
-		autoGenerateForms   => 1,
-		tableName           => 'FlatDiscount',
-		className           => 'WebGUI::Asset::Sku::FlatDiscount',
-		properties          => \%properties
-	    });
-	return $class->SUPER::definition($session, $definition);
-}
-
-
 #-------------------------------------------------------------------
 
 =head2 getMaxAllowedInCart ( )
@@ -147,15 +132,15 @@ sub getPrice {
     my $self = shift;
 	my $subtotal = 0;
 	foreach my $item (@{$self->getCart->getItems()}) {
-		next if ($item->get('assetId') eq $self->getId); # avoid an infinite loop
-		$subtotal += $item->getSku->getPrice * $item->get('quantity');
+		next if ($item->assetId eq $self->getId); # avoid an infinite loop
+		$subtotal += $item->getSku->getPrice * $item->quantity;
 	}
-	if ($subtotal >= $self->get('mustSpend')) {
-		if ($self->get('percentageDiscount') > 0) {
-			return $subtotal * $self->get('percentageDiscount') / -100;
+	if ($subtotal >= $self->mustSpend) {
+		if ($self->percentageDiscount > 0) {
+			return $subtotal * $self->percentageDiscount / -100;
 		}
 		else {
-			return $self->get('priceDiscount');
+			return $self->priceDiscount;
 		}
 	}
 	return 0;
@@ -207,7 +192,7 @@ Prepares the template.
 sub prepareView {
 	my $self = shift;
 	$self->SUPER::prepareView();
-	my $templateId = $self->get("templateId");
+	my $templateId = $self->templateId;
 	my $template = WebGUI::Asset::Template->new($self->session, $templateId);
 	$template->prepare($self->getMetaDataAsTemplateVariables);
 	$self->{_viewTemplate} = $template;