From 7258e11e7e5d02dccd3d2440b4c39734b28cc061 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 13 May 2010 15:28:45 -0700
Subject: [PATCH] Move Shortcut definition methods to Moose methods.

---
 lib/WebGUI/Asset/Shortcut.pm | 15 ++++-----------
 1 file changed, 4 insertions(+), 11 deletions(-)

diff --git a/lib/WebGUI/Asset/Shortcut.pm b/lib/WebGUI/Asset/Shortcut.pm
index f49af90c7..0f23d6e67 100644
--- a/lib/WebGUI/Asset/Shortcut.pm
+++ b/lib/WebGUI/Asset/Shortcut.pm
@@ -497,9 +497,9 @@ sub getOverrides {
     my $orig = $self->getShortcutOriginal;
     if (defined $orig) {
         unless ( exists $orig->{_propertyDefinitions}) {
-        my %properties;
-            foreach my $definition (@{$orig->definition($self->session)}) {
-                %properties = (%properties, %{$definition->{properties}});
+            my %properties;
+            foreach my $property ($orig->getProperties) {
+                $properties{$property} = $orig->getFormProperties($property);
             }
             $orig->{_propertyDefinitions} = \%properties;
         }
@@ -1150,14 +1150,7 @@ sub www_editOverride {
 	);
 
 	# Fetch the parameters for the dynamic field.
-	my (%params, %props);
-	foreach my $def (@{$self->getShortcutOriginal->definition($self->session)}) {
-		%props = (%props,%{$def->{properties}});
-	}
-	foreach my $key (keys %{$props{$fieldName}}) {
-		next if ($key eq "tab");
-		$params{$key} = $props{$fieldName}{$key};
-	}
+    my %params = %{ $self->getShortcutOriginal->getFormProperties($fieldName) };
 	$params{value} = $origValue;
 	$params{name} = $fieldName;
 	$params{label} = $params{label} || $i18n->get("Edit Field Directly");