package WebGUI::Fork::ProgressTree; =head1 LEGAL ------------------------------------------------------------------- WebGUI is Copyright 2001-2009 Plain Black Corporation. ------------------------------------------------------------------- Please read the legal notices (docs/legal.txt) and the license (docs/license.txt) that came with this distribution before using this software. ------------------------------------------------------------------- http://www.plainblack.com info@plainblack.com ------------------------------------------------------------------- =cut use strict; use warnings; =head1 NAME WebGUI::Fork::ProgressTree =head1 DESCRIPTION Renders an admin console page that polls ::Status to draw a friendly graphical representation of how progress on a tree of assets is coming along. =head1 SUBROUTINES These subroutines are available from this package: =cut use Template; use HTML::Entities; use JSON; use WebGUI::Fork::ProgressBar; my $template = <<'TEMPLATE';
[% i18n('WebGUI', 'Loading...') %]
TEMPLATE my $stylesheet = <<'STYLESHEET'; STYLESHEET #------------------------------------------------------------------- =head2 handler ( process ) See WebGUI::Operation::Fork. =cut sub handler { my $process = shift; my $session = $process->session; my $style = $session->style; my $url = $session->url; $style->setRawHeadTags($stylesheet); $style->setScript($url->extras('underscore/underscore-min.js')); WebGUI::Fork::ProgressBar::renderBar($process, $template); } 1;