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

=head1 NAME

<name> -- <description>

=head1 VERSION

$LastChangedRevision$

=head1 DATE

$LastChangedDate$

=head1 DESCRIPTION

<description>

=cut
</%doc>

%#-- Begin HTML --#
<%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");
</%perl>
<table border=0 cellpadding=0 cellspacing=0 width=578>
<tr>
  <td width=20><img src="/media/images/spacer.gif" width=20 height=1></td>
  <td width=558>
<%perl>
$m->comp('/widgets/select_time/select_time.mc',
         base_name => "pub_date",
#         indent => 60,
	 disp      => "Publish At");
</%perl>
  </td>
</tr>
</table>
<%perl>
$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 &>

%#-- End HTML --#


