Updates for Moose.

This commit is contained in:
Colin Kuskie 2010-05-09 21:03:59 -07:00
parent a203ab48b6
commit ecf1c521f3

View file

@ -836,9 +836,9 @@ sub www_addSubmission {
} }
} }
} }
$form = WebGUI::Asset->newByDynamicClass($session,$formId); $form = eval { WebGUI::Asset->newById($session, $formId); };
if (!defined $form) { if (Exception::Class->caught()) {
$session->errorHandler->error(__PACKAGE__ . " - failed to instanciate asset with assetId $formId"); $session->errorHandler->error(__PACKAGE__ . " - failed to instanciate asset with assetId $formId");
} }
return $form->www_addSubmission; return $form->www_addSubmission;
} }
@ -1351,7 +1351,7 @@ sub www_getAllSubmissions {
$tableInfo->{'records' } = []; $tableInfo->{'records' } = [];
for my $record ( @{ $p->getPageData } ) { 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"); my $lastReplyBy = $asset->get("lastReplyBy");
if ($lastReplyBy) { if ($lastReplyBy) {