oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

migrate ExportHtml AssetHelper to FormBuilder

Browse source
This commit is contained in:
Doug Bell 2011-02-10 17:08:53 -06:00
parent 7c88ee41db
commit cc53006912
1 changed files with 13 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lib/WebGUI/AssetHelper/ExportHtml.pm
View file

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