From cc53006912b2cd1285fdaa8a26fcb69afba842e3 Mon Sep 17 00:00:00 2001
From: Doug Bell <doug@plainblack.com>
Date: Thu, 10 Feb 2011 17:08:53 -0600
Subject: [PATCH] migrate ExportHtml AssetHelper to FormBuilder

---
 lib/WebGUI/AssetHelper/ExportHtml.pm | 26 +++++++++++++-------------
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/lib/WebGUI/AssetHelper/ExportHtml.pm b/lib/WebGUI/AssetHelper/ExportHtml.pm
index 60e2f0329..f55b16531 100644
--- a/lib/WebGUI/AssetHelper/ExportHtml.pm
+++ b/lib/WebGUI/AssetHelper/ExportHtml.pm
@@ -79,35 +79,35 @@ sub www_export {
 ENDHTML
 
     my $i18n    = WebGUI::International->new($session, "Asset");
-    my $f       = WebGUI::HTMLForm->new($session, -action => $asset->getUrl);
-    $f->hidden( name => 'op', value => 'assetHelper' );
-    $f->hidden( name => 'className', value => $class );
-    $f->hidden( name => 'assetId', value => $asset->getId );
-    $f->hidden(
+    my $f       = WebGUI::FormBuilder->new($session, action => $asset->getUrl);
+    $f->addField( "hidden", name => 'op', value => 'assetHelper' );
+    $f->addField( "hidden", name => 'className', value => $class );
+    $f->addField( "hidden", name => 'assetId', value => $asset->getId );
+    $f->addField( "hidden",
         name           => "method",
         value          => "exportStatus"
     );
-    $f->integer(
+    $f->addField( "integer",
         label          => $i18n->get('Depth'),
         hoverHelp      => $i18n->get('Depth description'),
         name           => "depth",
         value          => 99,
     );
-    $f->selectBox(
+    $f->addField( "selectBox",
         label          => $i18n->get('Export as user'),
         hoverHelp      => $i18n->get('Export as user description'),
         name           => "userId",
         options        => $session->db->buildHashRef("select userId, username from users"),
         value          => [1],
     );
-    $f->text(
+    $f->addField( "text",
         label          => $i18n->get("directory index"),
         hoverHelp      => $i18n->get("directory index description"),
         name           => "index",
         value          => "index.html"
     );
 
-    $f->text(
+    $f->addField( "text",
         label          => $i18n->get("Export site root URL"),
         name           => 'exportUrl',
         value          => '',
@@ -115,7 +115,7 @@ ENDHTML
     );
 
     # TODO: maybe add copy options to these boxes alongside symlink
-    $f->selectBox(
+    $f->addField( "selectBox",
         label          => $i18n->get('extrasUploads form label'),
         hoverHelp      => $i18n->get('extrasUploads form hoverHelp'),
         name           => "extrasUploadsAction",
@@ -124,7 +124,7 @@ ENDHTML
             'none'     => $i18n->get('extrasUploads form option none') },
         value          => ['none'],
     );
-    $f->selectBox(
+    $f->addField( "selectBox",
         label          => $i18n->get('rootUrl form label'),
         hoverHelp      => $i18n->get('rootUrl form hoverHelp'),
         name           => "rootUrlAction",
@@ -133,14 +133,14 @@ ENDHTML
             'none'     => $i18n->get('rootUrl form option none') },
         value          => ['none'],
     );
-    $f->submit;
+    $f->addField( "submit", name => "submit" );
     my $message;
     eval { $asset->exportCheckPath };
     if($@) {
         $message = $@;
     }
     return $session->style->process( 
-        $message . $f->print,
+        $message . $f->toHtml,
         "PBtmpl0000000000000137"
     );
 }