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

=head1 NAME

<name> -- <description>

=head1 VERSION

$LastChangedRevision$

=head1 DATE

$LastChangedDate$

=head1 DESCRIPTION

<description>

=cut
</%doc>

%#-- Begin HTML --#
<%perl>;
my ($class, $id, $oc_id) = split('/', $m->dhandler_arg);
# Avoid redirects to the preview page.
pop_page;
my $pub = Bric::App::Callback::Publish->new
  ( cb_request  => $m->interp->cb_request,
    apache_req  => $r,
    params      => { %ARGS,
                     'oc_id' => $oc_id,
                     "$class\_id" => $id,
                   },
  );
$pub->preview;
</%perl>
%#-- End HTML --#


