diff --git a/lib/WebGUI/AssetExportHtml.pm b/lib/WebGUI/AssetExportHtml.pm index 0f666e959..7a300b4ba 100644 --- a/lib/WebGUI/AssetExportHtml.pm +++ b/lib/WebGUI/AssetExportHtml.pm @@ -918,156 +918,4 @@ sub exportHtml_view { $self->www_view(@_); } -#------------------------------------------------------------------- - -=head2 www_export - -Displays the export page administrative interface - -=cut - -sub www_export { - my $self = shift; - return $self->session->privilege->insufficient() unless ($self->session->user->isInGroup(13)); - my $i18n = WebGUI::International->new($self->session, "Asset"); - my $f = WebGUI::FormBuilder->new($self->session, action => $self->getUrl); - $f->addField( "hidden", - name => "func", - value => "exportStatus" - ); - $f->addField( "integer", - label => $i18n->get('Depth'), - hoverHelp => $i18n->get('Depth description'), - name => "depth", - value => 99, - ); - $f->addField( "selectBox", - label => $i18n->get('Export as user'), - hoverHelp => $i18n->get('Export as user description'), - name => "userId", - options => $self->session->db->buildHashRef("select userId, username from users"), - value => [1], - ); - $f->addField( "text", - label => $i18n->get("directory index"), - hoverHelp => $i18n->get("directory index description"), - name => "index", - value => "index.html" - ); - - $f->addField( "text", - label => $i18n->get("Export site root URL"), - name => 'exportUrl', - value => '', - hoverHelp => $i18n->get("Export site root URL description"), - ); - - # TODO: maybe add copy options to these boxes alongside symlink - $f->addField( "selectBox", - label => $i18n->get('extrasUploads form label'), - hoverHelp => $i18n->get('extrasUploads form hoverHelp'), - name => "extrasUploadsAction", - options => { - 'symlink' => $i18n->get('extrasUploads form option symlink'), - 'none' => $i18n->get('extrasUploads form option none') }, - value => ['none'], - ); - $f->addField( "selectBox", - label => $i18n->get('rootUrl form label'), - hoverHelp => $i18n->get('rootUrl form hoverHelp'), - name => "rootUrlAction", - options => { - 'symlink' => $i18n->get('rootUrl form option symlinkDefault'), - 'none' => $i18n->get('rootUrl form option none') }, - value => ['none'], - ); - $f->addField( "submit", name => "submit" ); - my $message; - eval { $self->exportCheckPath }; - if($@) { - $message = $@; - } - return '