From ecf1c521f3affb4bed809f43548e1788a94ff634 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Sun, 9 May 2010 21:03:59 -0700
Subject: [PATCH] Updates for Moose.

---
 lib/WebGUI/Asset/Wobject/EventManagementSystem.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm b/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
index 83a726f78..312ad068d 100644
--- a/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
+++ b/lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
@@ -836,9 +836,9 @@ sub www_addSubmission {
                 }
             }
     }
-    $form = WebGUI::Asset->newByDynamicClass($session,$formId);
-    if (!defined $form) {
-	$session->errorHandler->error(__PACKAGE__ . " - failed to instanciate asset with assetId $formId");
+    $form = eval { WebGUI::Asset->newById($session, $formId); };
+    if (Exception::Class->caught()) {
+        $session->errorHandler->error(__PACKAGE__ . " - failed to instanciate asset with assetId $formId");
     }
     return $form->www_addSubmission;
 }
@@ -1351,7 +1351,7 @@ sub www_getAllSubmissions {
     $tableInfo->{'records'        } = [];
     
     for my $record ( @{ $p->getPageData } ) {
-        my $asset = WebGUI::Asset->newByDynamicClass( $session, $record->{assetId} );
+        my $asset = WebGUI::Asset->newById( $session, $record->{assetId} );
         
         my $lastReplyBy = $asset->get("lastReplyBy");
         if ($lastReplyBy) {