<%doc>
###############################################################################

=head1 NAME

<name> -- <description>

=head1 VERSION

$LastChangedRevision$

=head1 DATE

$LastChangedDate$

=head1 DESCRIPTION

<description>

=cut

</%doc>
<%perl>;
do_queued_redirect();
# Get the content first, as it may generate messages that'll go into the header,
# afterward.
my $content = $m->scomp('/widgets/publish/publish.mc', %ARGS);
$m->comp('/widgets/wrappers/sharky/header.mc',
         title => 'Publish Details',
         context => "Workflow | Publish");
$m->out(qq{<form method="post" action="} . $r->uri .
  qq{" name="desk" onsubmit="return confirmChanges(this)">\n});

$m->out("$content<p></p>\n");
$m->comp("/widgets/wrappers/sharky/table_top.mc",
         caption => "Schedule Publication");

$m->comp('/widgets/select_time/select_time.mc',
         base_name => "pub_date",
         disp      => "Publish At",
         useTable  => 1);

$m->comp("/widgets/wrappers/sharky/table_bottom.mc");
$m->comp('/widgets/profile/formButtons.mc',
         type => 'asset',
         widget => 'publish',
         cb => 'publish_cb',
         section => 'workflow',
         val => 'publish_assets_red',
         no_del => 1);
</%perl>
</form>
<& /widgets/wrappers/sharky/footer.mc &>

