From c1c4256d066eaf5c90af83e675183548a1db47f6 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 26 Jan 2010 16:59:45 -0800
Subject: [PATCH] Beginning to work on AssetExport

---
 lib/WebGUI/AssetExportHtml.pm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

diff --git a/lib/WebGUI/AssetExportHtml.pm b/lib/WebGUI/AssetExportHtml.pm
index 1024de680..b267b8868 100644
--- a/lib/WebGUI/AssetExportHtml.pm
+++ b/lib/WebGUI/AssetExportHtml.pm
@@ -280,10 +280,9 @@ sub exportAsHtml {
     $exportSession->scratch->set('exportUrl',   $exportUrl);
     $exportSession->style->setMobileStyle(0);
 
-    my $asset = WebGUI::Asset->new(
+    my $asset = WebGUI::Asset->newById(
         $exportSession,
         $self->getId,
-        $self->get('className'),
         $self->get('revisionDate'),
     );
 
@@ -328,7 +327,7 @@ sub exportBranch {
             $outputSession->close;
         });
 
-        my $asset       = WebGUI::Asset->new($outputSession, $assetId);
+        my $asset       = WebGUI::Asset->newById($outputSession, $assetId);
         my $fullPath    = $asset->exportGetUrlAsPath;
 
         # skip this asset if we can't view it as this user.
@@ -509,10 +508,9 @@ sub exportGetDescendants {
                 $session->close;
             });
             # clone self in the new session
-            $asset = WebGUI::Asset->new(
+            $asset = WebGUI::Asset->newById(
                 $session,
                 $self->getId,
-                $self->get('className'),
                 $self->get('revisionDate'),
             );
         }